
“S’* ASSEMBLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
L TVCSTOQCBTEST 



20 ‘35 OCT. 28,1968 DAPCSM .195 PACK 943 
USER«S PACE NO. 1 E 0 S3 


R1000 

R1001 

R1002 

R1003 
R1004 
R1005 
R100S 
R100T 
R1009 
R1010 
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R1014 
R1015 
R1016 
R1017 
R1018 
RIO 19 
R1020 
R1021 
R1022 
R1023 
R102T 
' R1028 
R1029 
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R1031 
R1032 
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R1035 
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NAME STROKE TEST PACKACE 
ORIGINAL CODING BY OLSSCN 
MOD BY ®(CEL 


CINCLlDING INITIALIZATION PACKAGE) 

LOG SECTION STROKE TEST PACKAGE 

GATE 21 MARCH, 1967 


FUNCTIONAL DESCRIPTION.,.. 

STROKE TEST PACKAGE GENERATES A WAVEFOEM DESIGNED TO EXCITE BENDING 
5IRKTSTI C STROKE TEST INITIALIZATION) IS CALLED AS A JOB BY VBse 
IT INITIALIZES ALL ERASABLES K2CD PCS A stroke test, and 
TH©) TESTS PCS AN BOMS DAP. IP gCMS IT SETS STOCKER = ESTROKER 
PCS AN IM*533IATE STROKE TEST, OlHEICTIffl IT EERELY ENABLES 
■ A STROKS TEST BY SETTING STOCKER TO -0 . THE STROKE TEST 
THEN AWAITS SWITCHOVER TO TKB 80MS DAP WHEREUPON IT IS 
ENABLED APTER AN ADDITIONAL 4 SECOND DELAY TO AVOID 
THE SWITCHOVER TRANSIENTS CSSS STOXCALL, STROUP IN 
TVCEXECUTIVE) 

HACK (STROKE TEST) GENERATES THE WAVEPCSM BY DUMPING PULSE BURSTS 
OP PROPER SICW AND IN PROPER SEOjeTOE DIRECTLY INTO 
TVCPITCH, WORCING IN CONJUNCTION WITH BOTH PITCH AND YAW 
TVC DAPS, WITH INTERRED IATE WAITLIST CALLS. NOTE, HOWEVER 
THAT THE STROKE TEST IS PERPCR^D ONLY IN THE PITCH AXIS 
AN EXAMPLE WAVEFORM IS GIVEN BELOW, TO DEMONSTRATE STOCKE- 
TEST PARAMETER SEIECTICN 

RESTARTS CAUSE TEST TO BE TERMINATED. ANOIHER VB8 REOD IP TEST 
IS TO BE RE-RUN. 

pilsb burst size is pad-loaded cesircker) so that amplitude of 
waveform CAN be Changed, there ARE TEN PULSE Bursts in 
THE HALF-AMPLITUDE OP THE FIRST PREOJENCY SET IN THE 
STANDARD WAVEFORM. AMPLITUDE IS 1 0 CESIRCKER) C 1/42. 15) 
NOMINALLY 50/42.15 = 1.185 DeG 

CALLING SEQUENCE 

EXTENDED VERB 88 SETS UP STRKTSTI JOB 

PITOI AND YAW TVCDAPS, FINDING STRCKER NON -ZERO, DO A . .TO HACK 
AM INTERNALLY-GENERATED WAITLIST CALL ENTERS AT HACKWLST 

NORMAL EXIT MODES 

TO ftNKER C..O. . IP ENTRY FROM DAP, . .TOTBCCVR. . IF FROM WAITLISTILIST 

scDROcrriNEs called 

WAITLIST 

ALARM OR ABORT EXIT MODES 

NCNE 

ERASABLE INITIALIZATION REOJIHED 

ESTROKER C PAD-LOAD) 

STOCKER, CADDY, REVS, CARD, N 

OUTPUT 

S1WCTSTI ... INITIALIZATION FOR STROKE TEST 

HACK, HACKWLST. ..PULSE BURSTS INTO TVCPITOH VIA.. ADS.. 

RESETS STRCKER = +0 «HE* TEST COMPLETED 

DEBRIS 

M = CADDY = <-0, CARD = -0, REVS = -1 

honker 
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R1055 NOTE THIS IS NOT THE OFFICIAL WAVEFORM 
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R1056 

R1058 

R1060 

R1062 

R1064 

R1066 

R1068 

R10T0 

R1072 

R1074 

R1076 

R1O70 

R1080 

R1082 

R1084 

R1086 

R1088 

R1090 

R1092 

R1094 

R1096 

R1098 

R1100 

R1102 

R1104 

R1105 

R1107 

R1108 

R1109 

R1110 

Rllll 

R1112 

R1113 

R1114 

R1115 

R1116 

R1117 

R1118 

R1119 

R1120 


+4 
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44 
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4 4 

4 4 

* 4 

4 . 4 


44 
44 
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4 4 
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4 4 

4 4 

4 4 
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4 4 
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EXAMPLE WAVEFORM (EACH 4 REPRESENTS 
85.41 ARC SEC CP ACTUATOR OND) 
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FOR THIS (UNOFFICIAL, EXAMPLE) WAVEFORM, THE REQUIRED PARAMETERS ARE AS FOLLOWS 


♦3 

♦4 


FCARD = >3 
ESTRCKER = +3 

SETT . . 

FREVS 
FCADDY 
SBT2 . . 

FCARD 1 
FCARD4 
SET3. . 

FCARD 2 
FCARD 5 
SET4 . . 

FCARD 3 
FCARD6 


(NUMBER OF SETS) 

(PULSE BURST SIZE, SC.AT 85.41 ARC SEC /BIT) 


(NUMBER REVERSALS MINUS 1> 

(NUMBER CP PULSE BURSTS IN l/2 AMPLITUDE) 



+9 (NUMBER REVERSALS MINUS l) 

+2 (NUMBER OP PULSE BURSTS IN l/2 AMPLITUDE) 

4-9 (NUMBER REVERSALS MINUS l) 

♦l (NUMBER OP PULSE BURSTS IN l/2 AMPLITUDE) 

>0 (NUNBER REVERSALS MINUS 1) 

4-0 (NUMBER OP PULSE BURSTS IN l/2 AMPLITUDE) 
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f 


I 



L 

TVCSTOCKETEST 








USa-S PAGE NO. 3 Bo S3 

Pirn 

STROKE TEST INITIALIZATION PACKACB 

(AS A JOB, 

PRCM VERB 88) 


1122 





IT, 2213 




bank 

17 


1123 

REP 

2 

LAST 

922 

20,2000 




SETLOC DAPS2 


1124 





20,3446 




BANK 



112S 

RHP 

1 







COLNT* jj/STRK 


1128 

SEP 

2 

LAST 

103 

ES, 1665 




EBANKr 

CADDY 


1121 

REP 

1 



20,3446 

0 3465 

0 

SIWCTSTI ICR 

TSTINIT 

STOCKS TEST INITIALIZATION PKO (CALLED 

A1128 











AS A JOB BY VERBS 8) 

1129 





20,3447 

0 0004 

0 

TVCDTQK INHINT 

STOCKS TEST PERMITTED CNLY WITH 80MS DAP 

1130 

IBP 

10 

LAST 

938 

20,3450 

31«635 

0 


CAE 

TSTVCDT 

check current timing 

1131 

HEP 

100 

LAST 

940 

20,3451 

54 001 

1 


TS 

L 


1132 

REP 

2 

LAST 

907 

20,3452 

3 7677 

0 


CAP 

0CT37774 

LOCK FOR BOMS (15) 

1133 





20,3453 

0 0006 

1 


EXTEND 



1134 

REP 

10 

LAST 

184 

20,3454 

06 001 

0 


RXOR 

LCHAN 

♦0 IP 80MS 

U3S 

REP 

206 

LAST 

936 

20,3455 

10 000 

0 


CCS 

A 


1136 





20,3456 

1 3462 

0 


TCP 

♦4 

NOT eoMS 

1131 

RHP 

6 

LAST 

908 

20,3457 

31-412 

1 


CAE 

estocker 

80MS. CK, SET STOCKER FOR TEST 

1138 

RHP 

9 

LAST 

'930 

20,3460 

55-814 

1 


TS 

STOCKER 


1139 





20,3461 

1 3484 

0 


TCP 

♦3 


1140 

HEP 

166 

LAST 

935 

20,3462 

4 4714 

0 


CS 

ZERO 

ENABLE, BUT do not activate stroke 

1141 

REP 

10 

LAST 

945 

20,3463 

55-614 

1 


TS 

STOCKER 

TEST, AWAITING SWITCHOVER 

A1142 











TO MODoR (MODgO) 

1143 

REP 

104 

LAST 

891 

20,3484 

1 5112 

X 


TCP 

ENDOPJOB 


1144 

HEP 

1 



20,3465 

4 3475 

0 

TSTINIT 

CS 

PCADDY 

NORMAL ENTRY FROM STOKTSTI 

1145 

RHP 

3 

LAST 

945 

20,3466 

55-665 

1 


TS 

CADDY 


1140 

HEP 

2 

LAST 

103 

20,3467 

55-666 

1 


TS 

N 

NOTE SGN CHNG FCADDYU) TO CADDY(-) 

1141 

REP 

1 



20,3470 

3 3476 

1 


CAP 

FREVS 


1148 

RHP 

2 

LAST 

103 

20,3471 

55-670 

0 


TS 

REVS 


1140 

RHP 

1 



20,3472 

4 3477 

1 


CS 

FOARD 

NOTE SCW CHNG FCARDU) TO CARD(-) 

1150 

SEP 

2 

LAST 

103 

20 , 3473 

55-671 

1 


TS 

CARD 


1151 

RHP 

188 

LAST 

940 

20,3474 

0 0002 

0 


1C 

0 

return to strctsti+i (or chkstok+ 20 r,- 4) 




I 
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L TVCSTRCKBTEST USBR«S PACE NO. 4 Ea S3 

P1152 THE OFFICIAL STROKE TEST WAVEFORM (3 JAN, CONSISTS OP FOUR STROKE SETS, AS FOLLOWS 

R1154 SET 1...10 BURSTS IN 1/2 AMP, 4 RSVEISJIIS 

R1155 SET 2 ... 6 BURSTS IN 1/2 AMP, 6 RSV323ES6 

Ruse set 3... 5 bursts in 1/2 amp, 10 heveictisb 

RUST SET 4... 4 BURSTS IN 1/2 AMP, 14 REVERSES 

R1158 THE PltSB BURST 8122 (BSTRCKER) IS PAD-LG9EES «ffi BITS AS OP 3JAN.196T) 

R1159 THE REMAINING WAvEFORM-GSNERATING PARAMETERS ASS) AS FOLLOWS 


1160 


20, 3475 

00012 

1 

FWE WS 

DEC 

10 

NO. 

PULSE BURSTS IN 

1/2 AMP, SETl. 

.(+10) 

1161 


20,3476 

00003 

1 

FRSS 

DEC 

3 

NO. 

REVERSALS MINUS 

1, SETl 

.( 3) 

1162 


20,3477 

00004 

0 

FCAHD 

DEC 

4 

NO. 

STROKE SETS 


.(♦ 4) 

1163 


20,3500 

00005 

1 

FCfflHE 

DEC 

5 

NO. 

REVERSALS MINUS 

1, SBT2 

.( 5) 

1184 


20,3501 

00011 

1 

FCMS& 

DEC 

9 



3 

.< 9> 

1165 


20,3502 

00015 

0 

FCAES 

DEC 

13 



4 

.( 13> 

1168 


20,3503 

00006 

1 

FCAOTM 

DEC 

6 

NO. 

pulse bursts in 

1/2 AMP, SET2. 

.(+ 8) 

1167 


20,3504 

00005 

1 

FCAffiS 

DEC 

5 



SET3. 

.(+ 5> 

1168 


20,3505 

00004 

0 

FCAfflte 

DEC 

4 



SET4. 

.(+ 4) 

1169 

REF 3T LAST 918 

4711 



20MS 

= • 

BIT2 





R11T0 

STROKE TEST PACKAGE 

PROPER 











1171 

REP 

2 

LAST 

103 

Be, 1667 



kbank- bunker 


1172 





20,3506 

0 0006 

1 

HACK EXTEND 

ENTRY (IN T5 HUPT) FRCM TVCDAPS 

1173 

REP 

3 

LAST 

946 

20,3507 

23*667 

1 

ckch bunker 

SAVE 0 FOR DAP RETURN 

1174 

REP 

1 



20,3510 

3 4711 

1 

CAP 20MS 

2DAPSX2(PASSES/DAP)X2(CS/PASS)=8CS=TV( 

1175 

REF 

45 

LAST 

918 

20,3511 

0 5140 

1 

TC waitlist 


1176 

REP 

4 

LAST 

946 

Eo ,1667 



bhank- bunker 


1177 

REP 

1 



20,3512 

03515 

0 

2 CADR HACkwLST 


1177 

REP 

1 



20,3513 

40066 

0 



1178 





20,3514 

1 3517 

0 

TCP +3 


1179 

REF 

1 



20,3515 

3 4367 

1 

HACKWISHT caf tctskovr 

ENTRY FRCM WAITLIST 

1180 

REP 

5 

LAST 

946 

20,3516 

55*667 

0 

TS Bunker 

BUNKER IS TC TA SKIVER 

1181 

REP 

11 

LAST 

945 

20,3517 

3 1614 

0 

CA STOCKER 

STROKE 

1182 

REP 

5 

LAST 

926 

20,3520 

26 054 

1 

ADS TVCPITCH 


1183 

REP 

26 

LAST 

926 

20,3521 

3 4700 

1 

CAF BITll 

RELEASE THE ERROR COUNTERS 

1184 





20,3522 

0 0006 

1 

EXTEND 


1185 

REP 

10 

LAST 

932 

20,3523 

05 014 

1 

WOR CHAN14 


1186 

REP 

4 

LAST 

945 

20,3524 

25*665 

0 

INCR CADDY 

COUNT DOWN THE NO. BURSTS, THIS SLOPE 
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L 

TVCSTROKETEST 


1187 

REF 

5 

LAST 

946 

1188 





1189 





1190 

REP 

8 

LAST 

948 

1191 

REF 

3 

LAST 

945 

1192 

REF 

1 



1193 

REF 

2 

LAST 

947 

1194 

REF 

3 

LAST 

945 

1195 

REP 

4 

LAST 

947 

1198 





1197 

REP 

1 



1198 

REF 

5 

LAST 

947 

1199 

REP 

2 

LAST 

945 

1200 

REP 

4 

LAST 

947 

1201 

REP 

8 

LAST 

947 

1202 

REP 

3 

LAST 

947 

1203 

REP 

3 

LAST 

945 

1204 

REP 

6 

LAST 

947 

1205 

REF 

7 

LAST 

947 

1208 

REP 

12 

LAST 

946 

1207 

REP 

8 

LAST 

947 

1208 

REP 

5 

LAST 

947 

1209 

REP 

4 

LAST 

947 

1210 





1211 





1212 

REF 

99 

LAST 

851 

1213 

REF 

6 

LAST 

947 

1214 

REF 

5 

LAST 

947 

1215 

REF 

7 

LAST 

947 

1216 

REP 

13 

LAST 

947 

1217 

REP 

14 

LAST 

947 

1218 

REP 

9 

LAST 

947 



20,3525 

4 1665 

1 


CS 

CADDY 

20,3526 

0 0006 

1 


EXTEND 


20,3527 

8 3531 

0 


BztV 

♦2 

20,3530 

0 1667 

1 


TC 

bunker 

20,3531 

11«870 

0 


CCS 

REVS 

20,3532 

1 355 2 

1 


TCP 

REVUP 

20,3533 

1 3558 

0 


TCP 

RfiVUP +4 

20,3534 

25*671 

0 


INCR 

CARD 

20,3535 

4 1671 

1 


CS 

CARD 

20,3536 

0 0006 

1 


Exie© 


20,3537 

1 3550 

0 


B ZP 

STOCK ILL 

20,3540 

51«671 

0 


INDEX 

CARD 

20,3541 

3 3503 

1 


CAP 

PCAFD +4 

20,3542 

55*670 

0 


TS 

REVS 

20,3543 

51«671 

0 


INDEX 

CARD 

20,3544 

4 3506 

0 


CS 

FCARD +7 

20,3545 

55*666 

1 


TS 

N 

20,3548 

55*665 

1 


TS 

CADDY 

20,3547 

0 1667 

1 


TC 

bunker 

20,3550 

55*614 

1 

STOCK IIL TS 

STOCKER 

20,3551 

0 1867 

1 


TC 

bunker 

20,3552 

55*670 

0 

RBVUP 

TS 

REVS 

20,3553 

3 1666 

0 


CA 

N 

20,3554 

6 0000 

1 


DOUBLE 


20,3555 

1 3561 

1 


TCP 

+4 

20,3556 

4 4712 

0 

♦4 

CS 

CNE 

20,3557 

55*670 

0 


TS 

REVS 

20,3560 

3 1666 

0 


CA 

N 

20,3581 

55«665 

1 


TS 

CADDY 

20,3562 

4 1614 

1 


CS 

STOCKER 

20,3563 

55*614 

1 


TS 

STOCKER 

20,3564 

0 1667 

1 


TC 

bunker 


USER.S PAGE NO. 5 Be S3 


EXIT, WHILE CN A SLOPE 

POSITIVE REVS 

PINAL REVERSAL, THIS SET 

NBGATIVE REVS SET LAST PASS, READY FOR 
THE NEXT SET. CHECK IF NO MORE SETS 

ALL SETS COMPLETED 


PICK UP NO. REVERSALS (-), NEXT SET 
REINITIALIZE 

pick up no. bursts in 1/2 AMP, next set 
REINITIALIZE 

EXIT, at end of set 
reset CTO +0) TO END TEST 
EXIT, STOCKS TEST FINIS 
ALL REVERSALS EXCEPT LAST OF SET 

2 X 1/2AMP 


FINAL REVERSAL, THIS SET 

PREPARE TO BRANCH TO NEW BURST 

JUST RETURN TO 2ERO, FINAL SLOPE OP SET 

CADUP 

CHANGE SIGN OF SCOPE 

EXIT AT A REVERSAL (SLOPE CHANGE) 


I 
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L TVCROLLDAP USER«S PAOB NO. 1 Bo S3 

R1000 PROGRAM NAMB ROLL AUTOPILOT, CONSISTING OP ROLLDAP, DURATION, NOROLLi.E 

R1001 ORIGINAL CODING By F.W. MARTIN, 1965 (SUNDIAL) 1C. 

R1003 LOG SECTION ROLL AUTOPILOT SUBROUTINE DAPCSM 

R1004 MOD By ENGEL DATS 28 DEC, 1957 (SUNDISK TO COLOSSUS) 

R100S FUNCTIONAL DESCRIPTION 

R1006 *AN ADAPTATION OP THE LBHP-AXIS CONTROLLER 

RlOOT ♦MAINTAIN OGA WITHIN 5 DEG DEADBND OP OGAD, wHEffi OGAD = OGA AS SEET 

R1008 By ICNOvER (IGVITICN) 

R1009 ♦MAINTAIN OGA RATE LESS THAN 0.1 DEG/SEC LIMIT CYCLE RATE 

R1012 ♦SWITCHING LOGIC IN PHASE PLANE ffiE GSOP CHAPTER 3 

R1013 4USBS T 6 CLOCK TO TIME JET FIRINGS 

R1014 ♦MAXIMUM JET FIRING TINS = 2.56 SECONDS, LIMITED TO 2.5 IP GREATER 

R1015 ♦MININVM JET FIRING TINS = 15 MS 

R1016 ♦JET PAIRS FIRE ALTERNATELY 

R101T +AT LEAST 1/2 SECOND DELAY BEFORE A NEW JET PAIR IS FIRED 

R1018 *JET FIRINGS MAY NOT BE EXTENDED, ONLY 9R0RTENED, WHEN RE-EvALUATICN 

R1019 OP A JET FIRING TIME Is MADE CN A LATER PASS 

R1020 CALLING SEQUENCE 

R1021 ♦ROLLDAP CALL VIA WAITLIST, IN PARTICULAR BY TVCEXEC (EVERY 1/2 SEC) 

R1022 WITH A 3 CS DELAY TO ALLOW FREE TIME FOR OTHER RJJPTS (DWNRPT, ETC.) 


R1023 NORMAL EXIT MODES ©tDOPJOB 

R1024 ALARM OR ABORT EXIT MODES NONE 

R1025 SUBROUTINES CALLED NONE 


R1026 OIHBR INTERFACES 

H102T ♦TVCExEC SETS UP ROLLDAP TASK EVERY 1/2 SECOND AND UPDATES 1 /CCNACC 

R1028 EVERY 10 SECONDS (VIA MASSPROP AND S40.1S) 

R1029 ♦TVCRESTART package WILL RE-START roll dap after a restart (PICKING 

Hi 030 UP THE ORIGINAL OGAD) 

R1032 erasable initialization reouired 

R1033 ♦l/CCNACC (S40.15> 

R1034 ♦OGAD (CDUX, AT IGNO/ER) 

R1035 ♦OC3ANOW (CDUX AT 1VCINIT4 AND TVCEXECUTIVE) 

R1036 ♦OGAPAST (OGANOW AT TVCEXECUTIVE) 

R10362 ♦ROLLFIRB = TEMREG = ROLLWORD = 0 (MRCLEAN LOOP IN TVCDAPCN) 

R103T OUTPUT 

R1038 +ROLL JET PAIR FIRINGS 

R1040 DEBRIS MISCELLANEOUS, SrlAREABLE WITH RCS/ENTRY, IN EHANK 6 CNLY 


m 
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TVCROLLDAP 


US 8 R.S PAGE NO. 


BO S3 



P1041 

R1042 

R1043 

R1044 

R1045 

R1046 

R104T 

R1048 

R1049 

R1050 

R1051 

R1052 

R1053 

R1054 

R1055 

R1056 

R105T 

R1058 

R1059 

R1060 

R1061 

R1062 

R1063 

R1064 

R1065 

R1066 

R106T 

R1068 

R1069 

RlOTO 

R10T1 

R10T2 

R1073 

R1074 

R1075 

R1076 

R1077 

R1078 

R1079 

R1080 

R1081 

R1082 

R1083 


SONS NOTES CN THE ROLL AUTOPILOT, AND IN PARTICULAR, CN ITS WITCHING 
LOGIC. SEE SECTION THESE OP THE GSOP ( SJNDISK/COLOSSUS) FOR DETAILS. 
SWITCHING LOGIC IN THE PHASE PLANE 


OGARATE 

* 

* 

* 

* 

* . 

* 

* 

* 

* * 
* 

♦ 

* 

* 

* 


*********** 


******* (COAST) 
* 

* 

* 

* 

( -DO , +LMCRA1B ) * 

* 

* 


(REGION 1 , SEE TEXT BELOW) 

PARABOLA ( SWITCHING - CONTROL) 

(FIRE NBG ROLL JETS) 

* 

♦ 

OGABRROR 


(FIRE POS ROLL JETS) 


* 

* 

* 

* (COAST) 

* 

* ■ 

* * 

* 

* 

* 

* 

* 


* (-AK, OGAERR) 

* (REGION 6 -PRft®) 

* ( SEE TEXT BELOW) 

♦ 

♦ . . .STRAIGHT LINE 


-MINLIM 


*************** 

-WXLIM 


SWITCHING PARABOLAS ARE CONTROL PARABOCAS, THUS REQUIRING KNOWLEDGE OP 
CONTROL ACCELERATION CCNACC, OR ITS RECIPROCAL, l/CCNACC, THE TVC 
ROLL DAP GAIN (SEE TVCEXECUTIVE VARIABU3 GAIN PACKAGE). JET 
FIRING TIME IS SIMPLY THAT REQUIRED TO ACHIEVE THE DESIRED OGARATE, 
SUBJECT TO THE LIMITATIONS DISCUSSED UNDER FUNCTIONAL DESCRIPTION, 
ABOVE. 

THE. THREE CONTROL REGIONS U, AND ZERO TORQUE) ARB COMPRIZED OP 
TWELVE SUBSET REGIONS ( 1. . . 6 , AND THE CORRESPOND ING l-PRli'C. . . 

6 -PRIM? ). SEE SECTION 3 OF THE GSOP (SUNDISK OR COLOSSUS) 
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P1084 GIVEN WE OPERATING POINT NOT IN THE COAST REGION, THE DESIRED OGARATE 
■1085 IS AT THE POINT 0? PENETRATION OF THE COAST REGION BY THE CONTROL, 

*1086 PARABOLA WHICH PASSES THROUSM THE OPERATING POINT. FOR REGION 3 

R108T DESIRED OGARATE IS SIMPLY ♦-MAXLIM. FOR REGIONS 1 OR 6 THE SOLUTION 

*1088 TO A QUADRATIC IS REOUIRSD (THE PENETRATION IS ALONG THE STRAIGHT 

*1089 LINE OR MINLIM BOLNDRY SWITCH LINES) . AN APPROXIMATION IS MADE 

*1090 INSTEAD. CONSIDER AN OPERATING POINT IN REGION 6. PASS A TANGENT TO 

R1091 THE CONTROL PARABOLA THROUGH THE OPERATING POINT, AND FIND ITS 

B1092 INTERSECTION WITH THE STRAIGHT LINE SECTION OF THE SWITCH CURVE... 

R1093 THE INTERSECTION DEFINES DESIRED OGARATE. IF THE OPERATING POINT IS 

*1094 CLOSE TO THE SWITCH LINE, THE APPROXIMATION IS QUITE GOOD ( INDEED 

*1095 THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS 

*1096 THE SWITCH LINE IS APPROACHED) . IF THE OPERATING POINT IS NOT CLOSE 

*1097 TO THE SWITCH LINE, THE APPROXIMATE SOLUTICN OIVES VALID TREND 

*1098 INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE 

*1099 RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (l/2 

*1100 SECOND INTERVALS) WILL BENEFIT FRCM THE CONVERGENT NATURE OP THE 

*1101 APPROXIMATION. 

*11021 FOR LARGE oGAERROR THE TANGENT INTERSECTS + -MINLIM SWITCH BCUNDRY BEFORE 
*11022 INTERSECTING THE STRAIGHT LINE SWITCH. HOWEVER THE MINLIM IS 

*11023 IGNORED IN COMPUTING THE FIRING TIME, SO THAT THE EXTENSION ( INTO 

*11024 THE COAST REGION) OF THE STRAIGHT LINE SWITCH IS WHAT IS FIRED TO. 

*11025 IF THE ROLL DAP FINDS ITSELF IN THE COAST REGION BEFORE REACHING 

*11026 THE DESIRED INTERSECTION (IE, IN THE REGION BETWEEN THE MINLIM 

*11027 AND THE STRAIGHT LINE SWITCH) IT WILL ExIBIT NORMAL COAST-REGICN 

*11028 . BEHAVIOR AND TURN OFF THE JETS. THE PURPOSE OF THIS FIRING POLICY 

*11029 IS TO MAINTAIN STATIC ROLL STABILITY IN THE EVENT OF A JET 

*1103 FA IL6D-0N . 


*1113 WHEN THE OPERATING POINT IS IN REGION 1 THE SAME APPRCXIMATICN IS 
*1114 MADE, Bur AT AN ARTIFICIALLY-CREATED OR DUMMY OPERATING POINT, 

*1115 DEFINED BY.. OGAERROR = INTERSECTION OP CONTROL PARABOLA AND 

*1116 OGAERROR AXIS, OGARATE = *-LMCRATE WHERE SIGN IS OPPOSITE THAT OF 

RiiiT real operating point rate, when the operating point has passed 

*1118 FROM REGION 1 TO REGION 6, THE DUMMY POINT IS NO LONGER REQUIRED, 

*1119 AND THE SOLUTION REVERTS TO THAT OF A REGULAR REGION 6 POINT. 

*1120 EQUATION FOR SWITCHING PARABOLA ( SEE FIGURE ABOVE) 

*1121 2 

*1122 SOGAERROR = (DB - (SOGABATE) (i/C(NACC>/2> SCN< SOGARATE) 

*1123 EQUATION FOR SWITCHING STRAIGHT LINE SEGMENT 

*1124 SOGARATE = -(-SLOPE) (SOGAERROR) - SCN( SOGARATE) INTERCEP 

*1125 WHERE INTERCEP = DB( -SLOPE) - LMCRATE 




I 
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R1126 EQUATION FOR INTERSECTION, CONTROL PARABOLA AND STRAIGHT SWITCH LINE 


R112T DOGADOT = NUM/DBJ, WERE 

RU29 NN = < -SLOPE HOGARATE) (1/CCNACC) 

RH30 +SGNCDELOGA) (-SLOPE) (OGAERROR - SCN(DELOGA) (DB) ) 

R1131 +LMCRATE 


RH32 DEN = (-SLOPE) (OGARATEH 1/CCNACC) - SGN(DBLOGA) 

Ull 33 2 

RH 34 DELOGA - OG4ERROR - (DB - (OGADOT) (l/CCNACC)/ 2 )SON(aGADOT) 

RH35 FOR REGIONS 6 AND 6-PRINS USE ACTUAL OPERATING POINT (OGA, (KARATE) 
R1138 FOR OGAERROR AND OGARATE IN THE INTERSECTION EQUATIONS ABCVE. 

R113T FOR REGIONS 1 AND 1-PRINE USE DUW OPERATING POINT FOR OGAERROR 

R1138 AND OGA RATE, WHERE THE DOMY POINT IS GIVEN BY.... 

R1139 OGAERROR= DELOGA + DB SON ( OGA RATE) 

R1140 OGARATE= -LMCRATE SOHOGARATE) 


RH41 NOTE, OGAERROR = OGA - OGAD USES DUYWY REGISTER OGA IN ROLL DAP CODING 
R1142 ALSO,AT POINT WHERE DOGADOT IS COMPUTED, REGISTER DELOGA IS USED 

R1143 AS A DlMNY REGISTER FOR THE OGAERROR IN THE NUM EQUATION ABOVE 


USER»S PAGE NO. 4 
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2000 

REP 

3 

LAST 

917 

18,2000 


8BTLOC DAPRCLL 


2001 





16,3313 


BANK 



2002 

REP 

9 

LAST 

904 

K8.16T2 


bbank= 

oganow 


2003 

REP 

1 





COUNT* jj/ROLL 


2008 

REP 

10 

LAST 

952 

16,3313 

31*672 0 

ROLLDAP CAE 

OGANQ* 

OGA RATE ESTIMATOR. . .SIMPLE FIRST-ORDER 

2007 





16,3314 

0 0006 1 

EXTEND 


DIFFERENCE (SAMPLE TIME = 1/2 SEC) 

2008 

REP 

3 

LAST 

904 

18,3315 

21*673 0 

MSU 

OGA PA ST 


2009 





16,3316 

0 0006 1 

EXTEND 



2010 

REP 

34 

LAST 

906 

16,3317 

7 4706 0 

MP 

BITS 


2011 

REP 

207 

LAST 

945 

16,3320 

22 000 1 

LXCH 

A 


2012 

REP 

1 



16,3321 

55*533 1 

TS 

OGA RATE 

SC .AT B-4 rev/sec 

R2017 

CCMPUMTICNS WHICH 

FOLLOW USB 

OGA FOR OGAEHR <SV« REGISTER) 


R2018 

examine duration of last roll 

FIRING IF 

jets are now cn 



2019 

REF 

2 

LAST 

102 

16,3322 

3 1611 0 

duration ca 

RCLLPIRE 

SAME SGN AS PRESENT TORQ,MACN=POSMAX 

2020 





16,3323 

0 0006 1 

EXT®© 



2021 





16,3324 

1 3326 1 

BzF 

♦2 

ROLL JETS ARE NOW OFF. 

2022 

REF 

1 



16,3325 

1 3334 1 

TCP 

ROLLOGIC 

ENTER LOGIC, JETS NOW CN. 

2023 

REF 

2 

LAST 

102 

16,3328 

31*613 1 

CAE 

TEMREG 

EXAMINE LAST FIRING INTERVAL 

2024 





16,3327 

0 0006 1 

EXT®© 


IP POSITIVE, DCNT FIRE 

2025 

REF 

2 

LAST 

952 

16,3330 

1 3334 1 

BZF 

ROLLOGIC 

ENTER LOGIC, JETS NOW OFP. 

2026 

REF 

167 

LAST 

945 

16,3331 

3 4714 1 

CAP 

ZERO 

JETS HAVE NOT BEEN OFP FOR 1/2 SEC. WAIT 

2027 

REP 

3 

LAST 

952 

16,3332 

55*613 0 

TS 

TEMREG 

RESET TEMREG 

2028 

REF 

46 

LAST 

909 

16,3333 

1 5213 0 

WAITl/2 TCP 

waca«R 

EXIT ROLL DAP 

R2029 

COMPUTE 

DB-1 1/2 CONAOC) (OCA RATE ISO <i/2 IN THE SCALING) 


2030 

REF 

2 

LAST 

952 

18,3334 

4 1533 1 

ROLLOGIC CS 

OGA RATE 

SCALED AT 2<-4> REV/SEC 

2031 





16,3335 

0 0006 1 

extend 



2032 

REF 

4 

LAST 

910 

16,3336 

7 1650 1 

MP 

1/CCNACC 

SCALED AT 2(+9) SEC SO /REV 

2033 





16,3337 

0 0006 1 

EXTEND 



2034 

REF 

3 

LAST 

952 

16,3340 

7 1533 1 

MP 

OGA RATE 


2035 

REF 

1 



16,3341 

6 3727 0 

AD 

DB 

SCALED AT 2Uo> REV 

2036 

REF 

4 

LAST 

952 

16,3342 

55«613 0 

TS 

TEMHEG 

QUANTITY SCALED AT 2<H)> REV. 

R2037 

GET 

SIGN 

OP OOAHATE 






2038 

REF 

4 

LAST 

952 

16,3343 

3 1533 0 

CA 

OGA RATE 


2039 





16,3344 

0 0006 1 

EXTEND 



2040 





16,3345 

6 3350 1 

BZMF 

♦ 3 

LET SGN(o) BE NEGATIVE 

2041 

REF 

63 

LAST 

900 

16,3346 

3 4712 1 

CA 

BITl 


2042 





18,3347 

1 3351 1 

TCP 

♦2 


2043 

REF 

64 

LAST 

952 

16,3350 

4 4712 0 

CS 

BITl 


2044 

REF 

2 

LAST 

103 

16,3351 

55*676 0 

TS 

SGNRT 

♦ OR - 2(-14> 

R2045 

CALCULATE DISTANCE FRCM SWITCH PARABOLA, 

DELOGA 



2046 





16,3352 

0 0006 1 

EXTEND 



2047 

REF 

5 

I A ST 

952 

16,3353 

7 1613 0 

MP 

TEMREG 

SONORA RATE) TEMREG NOW IN L 
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2048 

IBP 101 

LAST 

945 

16,3354 

4 0001 1 


CS 

L 

2049 

BKP 

3 

LAST 

103 

16,3355 

6 1674 0 


AD 

OGA 

2050 

■BP 

2 

LAST 

103 

16,3356 

55«S7T 1 

DELOGAC 

TS 

DELOGA 

R2051 

EXAMINE 

SOHDELCKA) 

and create ca or cs 

INSTR. DEPENDING UPON SIC 

2052 





16,3357 

0 0006 1 


EXTH® 


2053 





16,3360 

6 3363 1 


BzMP 

+3 

2054 

IBP 

ii 

LAST 

688 

16,3361 

3 4371 0 


CAP 

PRIO30 

2055 





16,3382 

1 3384 1 


TCP 

*2 

2058 

BKP 

38 

LAST 

906 

16,3383 

3 4874 0 


CAP 

BIT1S 

205T 

REP 

2 

LAST 

103 

16,3364 

55*700 0 


TS 

I 

2058 

■BP 

3 

LAST 

953 

16,3355 

51*700 1 


INDEX 

I 

2059 

IBP 

3 

LAST 

952 

16,3368 

0 1676 1 


0 

SGNRT 

2080 





16,3367 

4 0000 0 


COM 


2061 





16,3370 

0 0006 1 


EXTEND 


2082 

IBP 

1 



16,3371 

6 3442 0 

HEGlTST 

BZMP 

ROLLON 

R2083 

MO JET FIRE YET. TEST FOR MAX 

(KARATE 




2084 

■BP 

4 

LAST 

953 

16,3372 

51«700 1 


INDEX 

I 

2085 

■BP 

5 

LAST 

952 

16,3373 

0 1533 0 


0 

OGARATE 

2088 

IBP 

2 

LAST 

103 

16,3374 

55*701 1 


TS 

IOGARATE 

206T 

IBP 

1 



16,3375 

6 3735 0 


AD 

MAxLIM 

2080 





16,3376 

0 0006 1 


EXTEND 


2069 

IBP 

1 



16,3377 

6 3521 1 

REG3TST 

BZ4P 

ratelim 

R20T0 

COMPUTATION OF 

I(<- 

SLOPE) OGA 

> (KARATE) 

- intercept, .note that s: 

R2071 

SWITCH SLOPE IS (SLOPE) DBG/SEC /DEG, A NEG. QUANTITY 


2072 

RHP 

6 

LAST 

953 

16,3400 

3 1533 0 


CA 

OGARATE 

2073 





16,3401 

0 0006 1 


EXTEND 


2074 

HEP 

50 

LAST 

932 

16,3402 

7 4675 0 


MP 

BIT14 

2075 

REP 

e 

LAST 

952 

16,3403 

55*613 0 


TS 

TEMHEG 

2076 

HEP 

4 

LAST 

953 

16,3404 

3 1674 0 


CA 

OGA 

2077 





16,3405 

0 0006 1 


EXTEND 


2078 

■BP 

1 



16,3406 

7 3730 1 


MP 

-SLOPE 

2079 





18,3407 

20 001 1 


DDCUBL 


2080 





16,3410 

20 001 1 


DDCUBL 


2081 





16,3411 

20 001 1 


DDCUBL 


2082 

■HP 

7 

■ LAST 

953 

16,3412 

6 1613 1 


AD 

temreg' 

2003 

■BP 

5 

LAST 

953 

16,3413 

51*700 1 


INDEX 

I 

2084 

IBP 

208 

LAST 

952 

16,3414 

0 0000 1 


0 

A 

2085 





18,3415 

4 0000 0 


COf 


2088 

IBP 

1 



16,3416 

6 3732 1 


AD 

INTERCEP 

2087 





16,3417 

4 0000 0 


COM 


2088 





16,3420 

0 0006 1 


EXTEND 


2089 

■BP 

1 



16,3421 

6 36 3 2 0 

REG2TST 

BZ4F 

NOROLL 

R2090 

CieCK TO SEE IP OGARATE IS ABOVE MINLIM 




2091 

RHP 

3 

LAST 

953 

16,3422 

3 1701 0 


CA 

IOGARATE 

2092 

■BP 

1 



16,3423 

6 3733 0 


AD 

MINLIM 


USBR.S PAGE NO. e Ea S3 

SCALED AT 2U0> REV 

SC .AT B+o REV, PLUS TO RIGHT CP C-PARAB 

=CA (30000) 

=CS (40000) 

TSET (X I SGN(OGARATE) 

CA OR CS 

IP REGION 1 (DELOGA (KARATE SAME SIGN) 


CA OR CS. . .BOTH MUST BE NEG. HERE 

I.E. I (KARATE 

SCAIJ3D AT 2(-4) REV/SEC 

IP REGION 3 (RATES TOO HIGH, FIRE JETS) 


LINE 


(OGA ERROR NUST BE LESS THAN <--225 DEG) 


I((-SLOPE)OGA+OGARATE> AT 2(-3)REV/SEG 
SCALED AT 2<-3> REV. 


IF REGION 2 (COAST SIDE OF STRT LINE) 


AIWAYS NEGATIVE 
SCAIED AT 2(-4> REV/SEC 
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2093 





16,3424 

0 0006 1 

extend 



2094 

REF 

2 

LAST 

953 

18,3425 

0 3632 0 REG4TST 

BzMP 

NOROLL 

IF REGION 4 (COAST SIDE OP MINLIM) 

R2095 

ALL AREAS CHECKED EXCEPT LAST AREA . . .NO PIRE IN 

THIS SMALL S8CM2XT 


2098 

H8P 

6 

last 

953 

18,3428 

51«700 1 

INDEX 

I 


209T 

R8P 

5 

LAST 

953 

16,3427 

0 1874 0 

0 

OGA 


2098 





16,3430 

4 0000 0 

COM 



2099 

RBK 

2 

LAST 

952 

16,3431 

8 3727 0 

AD 

D0 


2100 





16,3432 

4 0000 0 

COM 



2101 





18,3433 

0 0008 1 

EXTEND 



2102 

FSF 

3 

last 

954 

16,3434 

6 3632 0 REG 5 TST 

BzMF 

NOROLL 

IE REGION 5 (COAST SIDE OP D 8 ) 

R2103 

JETS KTST FIRE NO, I . 

OGARATE IS NEG.COR VISA VERSA). US DIRECT STR LINB 


R2104 

DELOGA AND DELOOART ARE USED AS DUMMY VARIABLES 

IN THE SOLUTION OF A 


R2105 

stkaicht line approximation to a QUADRATIC SOLUTION of the intersection 


R2106 

OF THE CcntROL PARABOLA AND THE STRAIGHT-LINE SWITCH LINE THE STRAIGHT 


R2107 

LINB 

is the tangent to the control parabola at the OPERATING POINT (FOR 

R2108 

OPERATING points in 

REGIONS 

0 AND 6 -PRIMS) 




2109 

FZP 

6 

LAST 

954 

16,3435 

31*674 0 REGIONS 

CAE 

OGA 

USE ACTUAL OPERATING POINT FOR TANGENT 

2110 

HEP* 

3 

LAST 

953 

16,3438 

55*677 1 

TS 

DBLOGA 

ACTUAL STATE 

2111 

KSP 

7 

LAST 

953 

16,3437 

3 1533 0 

CA 

OGA RATE 


2112 

RKP 

2 

LAST 

103 

16,3440 

55*675 0 

TS 

DELOOART 

ACTUAL STATE.I.E. DEL OGARATE 

2113 

rep 

1 



16,3441 

1 3451 0 

TCP 

CNROLL 



R2114 

JETS ALSO FIRE 

FROM HERE EXCEPT OGARATE IS POS(VISA VERSA) .USE INDIRECT 


R2115 

STRAIGHT LINE ESTABLISHED By TANGENT TO A CCNTROL PARABOLA AT ( (DBLOGA 

R2116 

♦ DB 

SOMIDBLOGA) ), 

-LMCRATE 

SGN(DELOGA) ) 

(THIS IS THE DUMMY 


R2117 

OPERATING POINT FOR OPERATING POINTS IN REGIONS 

1 AND i-PRI(« ) 


2118 

PEP 

7 

LAST 

954 

16,3442 

51«700 1 ROLLCN 

INDEX I 


2119 

PEP 

3 

LAST 

954 

16,3443 

0 3727 0 

0 DB 


2120 

REP 

4 

LAST 

954 

16,3444 

27«677 1 

ADS DELOGA 

DELOGA WAS DIST. FRCM SWITCH PARABOLA 

2121 

HEP 

1 



16,3445 

4 3731 0 

CS LMCRATE 

LIMIT CYCLE RATE AT 2(-4> REV/SEC | 

2122 

REP 

8 

LAST 

954 

16 , 3446 

51«700 1 

INDEX I 


2123 

KEP ; 

209 

LAST 

953 

16,3447 

0 0000 1 

0 A 


2124 

REP 

3 

LAST 

954 

16,3450 

55«675 0 

TS DELOGA RT 

evaluate state for indirect line. 

R2125 

solve straight 

LINES 

SIMULTANEOUSLY TO OBTAIN DESIRED OGARATE. 


2128 





16,3451 

0 0006 1 CNROLL 

EXTEND 

DELOGART IN ACC. CN ARRIVAL 

2127 

REP 

5 

LAST 

952 

16,3452 

7 1650 1 

MP i /CCNACC 


2128 





16,3453 

6 0000 1 

DQJBU3 


2129 





16,3454 

0 0006 1 

EXTEND 


2130 

REP 

2 

LAST 

953 

16,3455 

7 3730 1 

MP -SLOPE 


2131 

REP 

8 

LAST 

953 

16,3456 

55*613 0 

TS TEMREG 

Z(-SL0PE)RATE /CCNACC 

2132 





16,3457 

0 0006 1 

EXTEND 


2133 

REP 

4 

LAST 

954 

16,3460 

7 1675 0 

MP DELOGA RT 


2134 

REP 

5 

LAST 

954 

16,3461 

55*675 0 

TS DELOGART 

2( -SLOPE) ( RATESQ) /CCNACC 

2135 

REP 

27 

LAST 

946 

16,3462 

4 4700 0 

CS BIT11 


2136 

REP 

9 

LAST 

954 

16,3463 

51*700 1 

INDEX I 
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2137 

BSP 

210 

LAST 

954 

15,3484 

0 0000 

1 


0 

A 


2138 

REF 

9 

LAST 

954 

16,3465 

27*613 

0 

RATOD3N 

ADS 

TBCBG 

D&f CHINA TOR CCHPLETOD 

2139 

REF 

10 

LAST 

954 

16,3466 

51«700 

1 


MB* 

I 


2140 

REF 

5 

LAST 

954 

16,3467 

0 1677 

0 


0 

D6L0GA 


2141 





16,3470 

4 0000 

0 


CCH 



2142 

REF 

4 

LAST 

954 

16,3471 

6 3727 

0 


AD 

DB 


2143 





16,3472 

4 0000 

0 


CCM 



2144 





16,3473 

0 0008 

1 


extb© 



2145 

REP 

3 

LAST 

954 

16,3474 

7 3730 

1 


m 

-sure 


2146 

REP 

6 

LAST 

954 

16,3475 

27«67S 

0 


ADS 

DEL0QART 


2147 

REF 

2 

LAST 

954 

18,3476 

3 3731 

1 


CA 

LMCRA1B 


1 ’ 2148 





16,3477 

0 0006 

1 


BOB® 



2149 

REF 

28 

LAST 

954 

16,3500 

7 4700 

0 


HP 

BITll 


2150 

REF 

7 

LAST 

955 

16,3501 

6 1675 

1 

RATENUN 

AD 

DELOGART 

NtMBRATOR CCMPLETED 

2151 

REF 

102 

LAST 

953 

16,3502 

56 001 

0 


XCH 

L 

PLACE NUMERATOR IN L FOR CVERFL. CHECK 

2152 

REP 

168 

LAST 

952 

16,3503 

3 4714 

1 


CA 

ZERO 


1 2153 





16,3504 

0 0006 

1 


extend 



2154 

REF 

10 

LAST 

955 

16,3505 

11*613 

0 


IV 

TEfl®G 

overflow, if anything, now appears in 

2155 





16,3506 

0 0006 

1 


EXTEND 



1 2158 

REF 

1 



16,3507 

1 3515 

1 


BZP 

IVtK 

NO OVERFLOW (o.d/temreg = 0,L 

| , 2157 

REF 

211 

LAST 

955 

16,3510 

10 000 

0 

MINLIMAP CCS 

A 


2158 

REF 

19 

LAST 

900 

16,3511 

3 4672 

0 


CAP 

PQS4AX 

POSITIVE OVERFLOW 

2159 

REF 

1 



16,3512 

1 3524 

0 


TCP 

ROLLSTT 


2160 

REP 

20 

LAST 

955 

16,3513 

4 4672 

1 


CS 

P034AX 

negative overfixw 

2161 

REF 

2 

LAST 

955 

16,3514 

1 3524 

0 


TCP 

RCLLSET 


BIB 2162 

REP 

212 

LAST 

955 

16,3515 

22 000 

1 

rvtx 

LXCH 

A 

PUT NUMERATOR BACK INTO A , 0 IN L 

5^ 2163 





16,3516 

0 0006 

1 


EXTEND 



2164 

REF 

11 

LAST 

955 

16,3517 

11*613 

0 


IV 

TEMHBG 

RESULT OF DIVISION IS DESIRED 0G4RATO 

2165 

REP 

3 

LAST 

955 

16,3520 

1 3524 

0 


TCP 

RCU.SET 

I SCALED AT B-4 REV/SEC ) 

2173 

REF 

2 

LAST 

953 

16,3521 

4 3735 

1 

RATELIM 

CS 

MAXLEM 


2174 

REP 

11 

LAST 

955 

16,35 22 

51*700 

1 


if®ex 

I 


2175 

REP 

213 

LAST 

955 

16,3523 

0 0000 

1 


0 

A 

IF I = CA, DESIRED RATO IS -MAXLIM 

R2176 

BASED CN 

DESIRED RATE - PRESENT RATE, 

.COMPUTE JET 

FIRE TI>e 


2177 

REP 

12 

LAST 

955 

16,3524 

55*613 

0 

ROLLSET 

TS 

TPMRBG 

STORE DESIRED OGARATO (SCALED B-4) 

21771 





16,3525 

0 0006 

1 


EXT©® 



2178 

HEP 

8 

LAST 

954 

16,3526 

61*533 

0 


SJ 

OGARATB 

RATO DIFF. SCAIED AT 2(-4> REV/SEC 

21781 

REP 

13 

LAST 

955 

16,3527 

55*613 

0 


TS 

TK4RBG 

OVERFLOW PROTECT 

21782 





16,3530 

1 35 33 

0 


TCP 

■*•3 

A A 

217821 

REP 

214 

LAST 

955 

16,3531 

50 000 

1 


INDEX 

A 

A A 

217822 

REP 

2 

LAST 

842 

16,3532 

4 4673 

0 


CS 

LIMITS 

A A 

2179 





16,3533 

0 0006 

1 


Extend 



2180 

REP 

1 



16,3534 

7 7665 

1 


mp 

TB SCALE 

TO SCALE = 8/10.24 

2181 





16,3535 

0 0006 

1 


EXT©® 
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2182 

2183 

21831 

HEP 8 

LAST 

954 

2184 

21841 

REF 14 

LAST 

955 

21842 

REF 215 

LAST 

955 

21843 

RSP 3 

LAST 

955 

2185 

2188 

REF 15 

LAST 

956 

2187 

HEP 4 

LAST 

954 

R2168 

JET FIRE 

TIME 

IS NZ, 

21881 

2189 

REF is 

LAST 

956 

2190 

REF 3 

LAST 

952 

2191 

I«F 216 

LAST 

956 

2192 

2193 

REF 1 
RES' 1 



2194 

REF 5 

LAST 

956 

2195 

REF 2 

LAST 

956 

R2196 

continue 

PRESENT FIR 

2197 

REF 169 

LAST 

955 

21 98 

2199 

REF 12 
RHP 1 

LAST 

955 

R2200 

start new firing but 

2201 

REF 17 

LAST 

956 

2202 

2203 

RES' 100 

LAST 

947 

2204 

2205 

2206 

2207 

2208 

REP 101 

RKF 1 

LAST 

956 

2209 

REF « 

LAST 

956 


16 

16 

16 

16 

16 

16 

16 

16 

16 

18 


,3536 

,3537 

,3540 

,3541 

,3542 

,3543 

,3544 

,3545 

,3548 

,3547 


7 1850 1 
20 001 1 
20 001 1 
55«813 
1 3545 
50 000 
4 4673 
55«813 
0 0006 
1 3632 


HP 1/CCNACC 

DDCUBL 

DIXXBL 

TS TE4RBG 

TCP *3 

INDEX A 

CS LIMITS 

TS TE-tRgO 

EXTEND 

BZP NORCLL 


R2210 

2211 

2212 

2213 

2214 

2215 


2216 

2217 

2218 

2219 

2220 


16.3550 

16.3551 

18.3552 

16.3553 

16.3554 

16.3555 

16.3556 

16.3557 


31«613 
0 0006 
7 1611 
10 000 
1 3560 
1 35 6 3 
1 3632 
1 35 6 3 


CAE T©(REG 

EXT©® 

MP RCLLFIRB 

A 

MQRBROLL 
NEWROLL 
NORCLL 
NBWROLL 


CCS 

TCP 

TCP 

TCP 

TCP 


16.3560 

16.3561 
16,356 2 


3 4714 1 
55«700 0 
1 3574 0 


MQRERCLL CAP 
TS 
TCP 


ZERO 

I 

MAXTPIRE 


16,35 6 3 

16.3564 

16.3565 
16,35 6 6 
18,3567 

16.3570 

16.3571 

16.3572 

16.3573 


11«613 0 
6 4712 1 
1 3567 
4712 
0000 
3736 
0000 
0006 
36 3 2 


18 LAST 956 


16.3574 

18.3575 
16,35 76 
16,3577 
16,3600 


3 1613 1 
0 0006 1 
7 4710 1 
0 0006 1 
1 3606 0 


REF 217 
REF 1 


LAST 956 


REP 


LAST 

LAST 


956 

956 


16.3601 

16.3602 
16,36 0 3 

16.3604 

16.3605 


10 000 0 

3 3737 1 
1 3605 0 

4 3737 0 
55«613 0 


NEWRCLL 

CCS 

TKMfffiG 


AD 

CNE 


TCP 

♦2 


AD 

CCM 

CNE 


AD 

TMINFIRE 


CCM 

EXT©® 


MINTST 

BZMP 

NOROLL 

THAN TMAXPIRE 


MAXTPIRE CA 

ext©® 

TB4REG 


MP 

EXTEND 

1/TM(FIR 

MAXTST 

BzP 

NCMXFIRE 


CCS 

A 


CAP 

TMAXPIRE 


TCP 

♦2 


CS 

TMAXPIRE 


TS 

TEMREG 




USSUS PACE NO. 9 E6 S3 

SCALED AT 2U9) SEC SO/REV 


OVERFLOW PROIECT 

• • 

» A 

« • 

JET PIRB TINE AT 625 MICROSEC/BIT 
POS MEANS POSITIVE ROLL TORO*. 


DESIRED CHANGE IN OGARATE 

<SCN OF TORQUE. .ZERO IP JETS NOW OFF) 

CCNTINUB FIRING WITH PRESENT POLARITY 
START NEW FIRING NOW, PLUS 
TERMINATE OLD FIRING, NEW SIGN REQUESTED 
START NEW FIRING NOW, MINUS 


USE TEMP. AS MOREROLL SWITCH 


CALL THIS TbPIRE 


-MAG(TSPIRE) 
TMINFIRB-MAGI T6PIRE) 


IF NOT GREATER THAN TMINFIRE (NEW FIRE) 


I.E. 1 /TMAxFIRE 
IP LESS THAN TMAxPIRE 


USE MAXIMUM 
USE MAXIMJM 
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UffiRaS PAGE NO. 10 Ee S3 

R2221 

SET 

UP SICK OP REQUIRED TOROUE 






2222 

REP 

20 

LAST 

956 

16,3606 

11*613 

0 

NCMXFIRB 

CCS 

TEMREG 

FOR TOROUE SIGN 

2223 

REP 

21 

LAST 

955 

16,3607 

3 4672 

0 


CA 

POS4AX 

POSITIVE TORQUE REQUIRED 

2224 





16,3610 

1 3612 

0 


TCP 

♦2 


2225 

REP 

4 

LAST 

938 

16,3611 

3 4674 

0 


CA 

NECMAx 

NEGATIVE TOROUE REQUIRED 

2226 

REF 

4 

LAST 

956 

16,3612 

55*611 

1 


TS 

HOLLPIRE 

SET ROLLPIRE FOR + OR - TORQUE 

2227 





16,3613 

4 0000 

0 


CCM 


C(MPL£M3(T POS. FOR NEG. TORQUE 

2228 





16,3614 

0 0006 

1 


extend 



2229 





16,3615 

6 3620 

0 


B£4P 

♦3 

POSITIVE TOROUE REQUIRED 

2230 

REP 

21 

LAST 

957 

16,3616 

4 1613 

0 


CS 

TENTREG 


2231 

REP 

22 

LAST 

957 

16,3617 

55*613 

0 


TS 

TEWREG 


2232 

REP 

13 

LAST 

956 

16,3620 

3 1700 

1 

FIRELOCK 

CA 

I 

IS IT MOREROLL 

2233 





16,3621 

0 0006 

1 


ext®® 



2234 

REP 

1 



16,36 22 

1 3624 

0 


BzP 

FIREPLUG 

YES 

2235 

REP 

1 



16,36 23 

1 3635 

0 


TCP 

JETRCLL 

MAG(TbFIRE) NOW IN TEffiEG 

2236 

REP 

1 



16,3824 

30 031 

0 

FIREPLUG 

CAE 

TI1*6 

CHECK FOR EXTENDED FIRING 

2237 





16,3625 

0 0006 

1 


EXTEND 



2238 

REP 

23 

LAST 

957 

16,3628 

61*613 

1 


SU 

TB4REG 


2241 





16,3627 

0 0006 

1 


EXT®® 



2242 

REP 

47 

LAST 

952 

16,3630 

6 5213 

1 

EXTENTST 

BzMP 

WSCOVER 

ip extension wanted, dcnt, exit Raj. dap 

2243 

REP 

2 

LAST 

957 

16,3631 

1 3635 

0 


TCP 

JETRCLL 


2244 

REP 

170 

LAST 

956 

16,3832 

4 4714 

0 

' NOROLL 

CS 

ZERO 

COAST (NEG zero FOR TIMES) 

2245 

REP 

5 

LAST 

957 

16,3833 

55*611 

1 


TS 

RCLLFIHE 

NOTE, JETS CAN FIRE NEXT PASS 

2246 

REP 

24 

LAST 

957 

16,3834 

55*613 

0 


TS 

TEMREO 


2247 





16,3635 

0 0006 

1 

JETRCLL 

extend 



2248 

REF 

1 



16,3636 

3 3726 

1 


DCA 

NOROLlTB 


2249 

REP 

2 

LAST 

127 

16,3837 

53*311 

1 


DXCH 

T6LOC 


2250 

REP 

25 

LAST 

957 

16,3640 

3 1613 

1 


CA 

TEMRKG 

ENTER JET FIRING TIME 

2251 

REP 

2 

LAST 

957 

16,3641 

54 031 

1 


TS 

TIMBe 


2252 

REP 

14 

LAST 

957 

16,3642 

3 1700 

1 


CA 

I 

1=0 IF MOREROLL, KEEP SAME JETS CN 

2253 





16,3843 

0 0006 

1 


EXTEND 



2254 

REP 

48 

LAST 

957 

16 , 3644 

1 5213 

0 

SAMEJETS 

BzP 

TA9CCVKR 

IF JETS CN KEEP SAME JETS. EXIT ROU, DAP 

2255 

REP 

6 

LAST 

957 

16,3645 

11*611 

1 


CCS 

RCLLFIRE 


2256 

REP 

1 



16,3646 

1 3652 

1 


TCP 

♦TOROUE 


2257 

REF 

1 



16,3647 

1 3713 

0 


TCP 

T6ENABL 


2258 

REP 

1 



18,3650 

1 3673 

1 


TCP 

-TOROUE 


2259 

REP 

2 

LAST 

957 

16,3651 

1 3713 

0 


TCP 

tb®mbl 


R2260 

PROCEED WITH ♦ 

TOROUB 







2261 

REP 

2 

LAST 

102 

16,3652 

3 1612 

0 

♦TOROUE 

CA 

ROLLWORD 

WHAT WAS THE LAST +TOROUE COMBINATION 

2262 

REP 

65 

LAST 

952 

16,3653 

7 4712 

0 


MASK 

BITl 

WAS IT NO. 9-H 

2263 





16,3654 

0 0006 

1 


EXTEND 



2264 

REP 

1 



16,3655 

1 3665 

0 


BzP 

NO. 9-11 

NOT 9-11, SO USE IT THIS TI>E 



L 
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2285 

REF 

2266 

REF 

226T 

REF 

2260 

REF 

2269 

2270 

REP 

2271 

REF 

2272 

REF 

2273 

REP 

2274 

REF 

2275 

2276 

REF 

2277 

REF 

2278 

REP 

2279 

REF 

2280 


2281 

REF 

2202 

REF 

2283 

REP 

2284 

REF 

2205 

REP 

2286 

2287 

REF 

2208 

REP 

2289 

HEP 

2290 

REF 

2291 

HEP 

2292 

2293 

REF 

2294 

REF 

2295 

2296 

REF 

2297 

REF 


US8R*S PAGE NO. 11 Efl S3 


66 

last 

95 T 

16,3856 

4 4712 0 

NO. 13-15 CS 

BITl 


3 

LAST 

957 

16,3657 

7 1612 1 


MASC 

ROLLWQRD 


4 

LAST 

958 

16,3680 

55*612 1 


TS 

RCLLWORD 

CHANGE BIT 1 TO ZERO 

1 



16,3881 

3 4732 0 


CAP 

+R0LL2 





16,3862 

0 0008 1 


EXTEND 


2 

LAST 

179 

16,3663 

01 006 0 


WRITE 

CHAN8 


3 

LAST 

957 

16,3664 

1 3713 0 


TCP 

T6ENABL 


67 

LAST 

958 

16,3865 

3 4712 1 

NO. 9-11 

CAP 

BITl 

1ST ♦ JETS TO FIRE (MRCLEAN OS ROLLWORD) 

5 

LAST 

958 

16,3666 

27*812 1 


ADS 

RCLLWORD 

CHANGE BIT 1 TO ONE 

1 



16,3687 

3 4715 0 


CAP 

♦ROLLl 





16,3670 

0 0006 1 


EXT©® 


3 

LAST 

958 

16,3871 

01 006 0 


WRITE 

CHANe 


4 

LAST 

958 

16,3672 

1 3713 0 


TCP 

TBB4ABL 


6 

LAST 

958 

16,3673 

3 1612 0 

-torque 

CA 

ROLLWORD 

WHAT WAS LAST -TORQUE COMBINATION 

38 

LAST 

946 

16,3674 

7 4711 0 


MASK 

BIT2 

WAS IT NO. 12-10 




16,3675 

0 0006 1 


Extend 



1 



16,3676 

1 3706 1 


BZP 

NO. 12-10 

NOT 12-10, SO USE IT THIS TIME 

39 

LAST 

958 

16 , 3677 

4 4711 0 

NO. 16-14 

cs 

BIT2 


7 

LAST 

958 

16,3700 

7 1612 1 


MASK 

ROLLWORD 


8 

LAST 

958 

16,3701 

55*612 1 


TS 

RCILWORD 

change bit 2 to zero 

1 



16,3702 

3 3740 1 


CAP 

-ROLL2 





16,3703 

0 0006 1 


extend 



4 

LAST 

958 

16,3704 

01 006 0 


WRITE 

CH AN6 


5 

LAST 

958 

16,3705 

1 3713 0 


TCP 

TbENABI, 


40 

LAST 

958 

16,3706 

3 4711 1 

NO. 12-IO 

CAP 

BIT2 

1ST -JETS TO FIRE (MRCLEAN OS ROUWORD) 

9 

LAST 

958 

16,3707 

27«612 1 


ADS 

RCLLWORD 

CHANGE BIT 2 TO CNE 

1 



16,3710 

3 4377 0 


CAP 

-ROLLl 





16,3711 

0 0006 1 


EXTEND 



5 

LAST 

958 

16,3712 

01 006 0 


WRITE 

QtAN6 


39 

LAST 

953 

16,3713 

3 4674 0 

T0ENABL 

CAP 

BIT1S 





16,3714 

0 0006 1 


EXTEND 



8 

LAST 

577 

16,3715 

05 013 0 


WOR 

CHAN13 


49 

LAST 

957 

16,3716 

1 5213 0 

RDAPEND 

TCP 

TASKOVER 

EXIT ROLL DAP 
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USBHaS PAGE NO. 12 

B6 S3 

P2298 

THIS T8 

TASK SHUTS 

OPP ALL ROLL JETS 






2299 

REP 15 

LAST 

938 

16,3717 

22 016 

0 

NOROLLl LXCH 

BANKRUPT 

SHUT OPP ALL (ROLL) JETS, (A 

T8 TASK 

2300 

REP 1T1 

LAST 

95 T 

16,3720 

3 4714 

1 

CAP 

ZERO 

CALLED BY . . JETROLL . . ) 


2301 

REP T 

LAST 

957 

16,3721 

55«611 

1 

TS 

ROLLPIRB 

ZERO INDICATES JETS NOW OPP 


2302 




16,3722 

0 0006 

1 

BOB© 




2303 

REP 8 

LAST 

958 

16,3723 

01 006 

0 

KILLJBTS WRITE 

CHANS 



2304 

REP 4 

LAST 

936 

16,3724 

1 5224 

1 

TCP 

NOOKS'! 




I 



1 / 
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U®R«3 PAGE NO. 13 


Be S3 


P2305 

constants for roll autopilot. 

... 





2306 

REP 

11 

LAST 

923 

E6.1T42 




BBANK: 

: BzERO 

2307 

REP 

1 



16,3725 

03717 

0 

NOROL1T6 

2CADR 

NQRQLLl 

2307 

REP 

1 



16,3728 

34066 

0 




2309 





16,3727 

00344 

1 

DB 

DEC 

.01388889 

2310 





16,3730 

06315 

0 

-SLOPE 

DEC 

0.2 

A2311 











2312 





16,3731 

00111 

0 

IMCRAIE 

oec 

.00027778 B+4 

A2313 











2314 





16,3732 

00510 

0 

INTBRCEP DEC 

.0025 B+3 

2315 





16,3733 

01330 

0 

MINLIM 

Dec 

.00277778 B+4 

2316 





16,3734 

00027 

1 

1 /MINLIM DEC 

380 B-16 

2317 





16,3735 

07071 

0 

MAXLIM 

oec 

.01388889 B+4 

2318 





16,3736 

00030 

1 

TMINFIRE 

Dec 

1.5 B+4 

2319 





16,3737 

07640 

1 

TMAxFIRE DEC 

250 B„4 

2320 

REP 

28 

LAST 

941 

4710 



1/TMXEIR 

_ 

BIT3 

A23201 











A23202 











23203 

REP 

4 

LAST 

787 

7665 



TB SCALE 

= 

PRI031 

2321 

REF 

23 

LAST 

906 

4715 



+ROLL1 


FIVE 

2322 

REP 

2 

LAST 

197 

4732 



+ROLL2 

= 

OCT120 

2323 

REP 

5 

LAST 

645 

4377 



-RGLLl 

= 

TEN 

2324 





16,3740 

00240 

1 

-ROLL2 

OCT 

240 


DEAD BAND (5 DBG), SC.AT B+o REV 

-SWITOILINB SLOPE! 0.2 PER SEC) SC AT B+o 
PER SEC 

LIMIT CYCLE RATE (o.l DEG/SEC) SC.AT 
B-4 REV/SEC 

DBC -SLOPE) - LMCRATE, SC.AT B-3 REV/SC 

RATELIM.MIN (lDEG/SEC), SC.AT B-4 REV/SC 

RECIPROCAL THEREOF, SHIFTED 14 RIGHT 

RATELIMjMAX ( 5DEG/SEC) , SC.AT B-4 RBV/SC 

15 MS (14 MIN), SC.AT 16 BITS/CS 

2.5 SEC, SC.AT 16 BITS/CS 

RECIPROCAL THERECP, SHIFTED 14 RIGHT, 
ROUNDS TO OCT00004, SO ALLOWS 2.56 
SEC FIRINGS BEFORE APPLYING LIMIT 
(B+3> (16BITS/CS) (100CS/SEC) 

CNBITS FOR JETS 9 and 11 
CNBITS FOR JETS 13 and 15 
(KBITS FOR JETS 12 NAD 10 
CNBITS FOR JETS 16 AND 14 
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PROGRAM NAME . . . GEN 3 DAP FILTERS, CCNSISTINO OP NPONCDB, NPlNCDB, NYoNCDB, NYlNODE, ETC. 

LOO SECTION. ] . ! GEN 3 DAP FILTERS SLBROUTINE MPCJM 

MOD BY ENGEL 20 OCT, 198T 


functional description 


THE CEN 3 DAP FILTER PACKAGE IS DESIGNED TO PRO/ IDE FLEXIBLE, L4ST-MINUIE CHANGEABLE DIGITAL AUTOPILOT 
FILTERS FOR IEM-OFP FLIGHT. GROUNDHULES FOR THE DESIGN AND USE OP THE PACKAGE ARE AS FGXXCWS 


1 FILTER COEFFICIENTS and GAINS IN ERASABLE MEMORY 

2 UP TO THIRD-ORDER NUMERATOR OR DENOMINATOR 

3. OPERATIONAL FIT WITHIN THE STHJCTURS OP THE RSCXXAR LEM-CN DAP CODING 

4 denominator poles inside the z-plane unit circle 
5 " ngterator zeros inside THE Z-plane DOUBLE-UNIT CIRCl£ 

6 HIGH FREQUENCY I BODS) GAIN LESS THAN &ASCREVS, OR 8.6380088 DEO /DEO 


WE FILTERS ARE SHOWN IN THE FOLLOWING DIAGRAMS. 
PITCH GEN 3 DAP FILTER. . 


EP = ERRBTMP 4 APO * API Z ♦ AP 2 Z ♦ AP 3 Z 


KPOFN3 

* 

* 

4 

NPO 

444444G X 


NPO - CMDTMP 44 


-1 -2 -3 

I ♦ BPI Z ♦ 8 P 2 Z + BP 3 Z 


YAW GEN 3 DAP FILTER. . 


EY r ERRBTMP 4 AYO *■ AYl Z ♦ AY2 Z + AY 3 Z 


-1 -2 -3 

1 ♦ BYl Z + BYz Z * BY 3 Z 


KYGEN3 

44 4 

4 4 

4 4 

4 NYO 
4444444444G X 

4 

4 

4 


NYP = CMYIMP 44 
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non tub implementing equations por these filters are as follows 
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R10T3 

R10T5 

R107T 

R10T9 

R1081 

R1083 

R1085 

R108T 

R1089 

R1091 

R1093 

R1095 

R109T 

R1099 

R1101 


PITCH CEN3DAP 

NPO = (B+4) KPGEN3 NPO 
NPo = APO EP 
NYl = API EP - BPi NPO 
NP2 = AP2 EP - BP2 NPo 
NP 3 = AP3 EP - BP3 NPO 


+4(Z-1 ) NPl 
+ (Z-l> NP2 
♦ CZ-1> NP3 


+4IZ-1) NYl 
(Z-l) NY2 
<Z-1) NY 3 

(UPPER WORD ONLY) , THUS ARB 


YAW GBI3DAP 

NYD = (B+4) KYGBI3 NYO 
NYO = AYo BY 
NYl = AYl EY - BYl NYO 
NY 2 = AY2 EY - BY 2 NYq 

- ----- NY3 = AY3 EY - BY3 NYo 

aT m EP AND N ABS UP P** REOUIAR LEM-CN CODING AT ERRBTMP (upper wukd ONLY) THUS 

SINGLE PRECISION OWNTITIES SCALH3 AT B-i REVS. FILTER OUTPUTS NPD AND NYD ARE LEFT IN DOUBLE PRECISION AT 
CMYIKP, SCALED AT 1 AsCrEV, READY POR OUTPUT PROCESSING VIA REGULAR LEM-CN CODING AT P YCFFSET 
folidiing armor processing, return to the genjdap filters is made for calculation op'the remaining ncdes 

™ Np 3» OR NYl TO NY3. GEN3DAP FILTERS THEN RETURN TO THE LEM-CN CODLNG AT DELBArp Y FOR RESPECTIVE 
OFFSET- TRACKER-FILTER CCKPUIATICNS AND COPYCYCLES. NOIE THE EOJ I VALENCES NPlTMP-JsTMP NPl=Js 

NP2TMP=N&Amp, NP 2 =PNSUM, NP3TMP=DSLMIMP , NP 3 =PDSUM, WITH CORRESPONDING RELATIONS POR YAw THUS THE COPY- 
CYCLE PCOPY, FROM THE GSN3DAP STANDPOINT, IS EFFECTIVE FROM PMISC-3 TO ITS BID AT TC O. YCOPY FROM YMISC-3 
SCALING OF THE FILTER NODES, COEFFICIENTS, AND GAINS WITHIN THE AOC IS AS FOLLOWS 


R 1103 

QUANTITY 

quantity 

PHYS. UNITS 

MAX .VALUE 

Rl 105 

EP 

EY 

REVS 

1/8 

R110T 

NPo 

NYO 

REVS 

(B+i ) 

R1109 

NPl 

NYl 

REVS 

(3+3) 

R 1111 

NP2 

ny 2 

REVS 

( B+3 ) 

R 1113 

NP3 

NY3 

REVS 

(B+3) 

R1115 

NPD 

NYD 

AS C REVS 

<1> 

R1117 

KPGEN3 

KYGEN3 

ASCREV/REV 

<8> 

R1119 

APO 

AYo 

DIMLESS. 

1 

R1121 

APi 

AYl 

DIMLESS. 

6 

R1123 

AP Z 

AY2 

DIMESS. 

12 

R1125 

AP3 

ay 3 

DURESS. 

8 

R112T 

BPi 

BYl 

DIMLESS. 

3 

R1129 

BP2 

BY2 

DMLESS. 

3 

R1131 

BP3 

by 3 

DIMLESS. 

1 

R1132 

filter coefficients, 

GAINS, AND NODES ARE HEID 

IN DOUBLE PR£ 


(CDU SCALING) 


(ACTUATOR CDU SCALING) 


R1134 

R1136 


SCALING AND YET OFFSET TRUNCATION LOSSES. 
COMPUTATION TIME IS NOT CRITICAL. 


SCALE AT (POR) 

B-l REV 

B+l REV 
B+3 REV 
B+3 REV 
B+3 REV 

1 AsCREv 

B+3 ascrev/rev 

B+2 

B+4 

B+4 

B+4 

B+2 

B+2 

B+2 


THIS APPEARS NECESSARY IF FILTER FLEXIBILITY IS TO BE MAINTAINED. 
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CALLING SEQUENCE 

*TC POST JUMP 

CADR NPONODE, NPl, NYo, NYl . SPECIFICALLY, PROM PITCHDAP OR YAWDAP 
(lVCOAP),AT PlPILJMP, P2FILJMP, YlPILJMP, Y2PILJMP 


R1139 
R1140 
R1141 

R1142 NORMAL EXIT MODE 


IE, RETURNS TO 


RH43 «C POSTJIWP 

RH44 CADR (POPP SET, DELBARP), (YOPPSST, DELBARY) . 

R1145 PIKJOAP OR YAWDAP AT APPROPRIATE ENTRY POINT 

R1146 ALARM OR ABORT EXIT MODES NCNE 

R114T SUBROUTINES CALLED NONE 

R1148 ERASABLE INITIALIZATION REQUIRED 

R1149 *AP0(SP),AP1(DP),...AP3(DP), (PITCH AND YAW) NIM2RATOR COEFFICIENTS 

R1150 (PAD LOADS) 

R1151 48P1(DP),...BP3(DP), (PITCH AND YAW) DENOMINATOR COEPPICIBITS 

R1152 ‘PAD LOADS) 

R1153 4KPGEN3 (840.15 OP R03> 

R1154 OUTPUT 


R1155 

R11S6 

R1157 

1158 

1159 

1160 
1161 
1162 


+CMTIMP (NPD, NYD) FOR arTPUT PROCESSING BY PITCHDAP OR YAWDAP 
★OTHER FILTER NODES 

DEBRIS TVC TEMPORARIES, SHAREABLE WITH RCS/ENTRY IN EBANK6 ONLY 

21,2026 BW 21 


REP 


REF 

REP 


17,2000 

17,2213 

E6,1742 


SETLOC DAPS4 
BANK 

EBANK= EP 
COUNT* j$/GEN 3 


USERaS PAGE NO. 


*0 S3 
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L 

tvogen3pilters 





USSIWS PACE NO. 4 Er S3 

P1163 

PITCH OEN3DAP 

FILTER 





1164 





IT, 2213 

0 0006 1 

NP0N0DB 

exits® 

FORM NCDB NPo COLLECT (PAST NPI) 

1165 


1 



17,2214 

3 1564 1 


DCA NPi 

(CCMBS H3HE FRCM RE G. DAP CODING) 

1166 





17,2215 

20 001 1 


DDClBL 


1167 





17,2216 

20 001 1 


DtXXBL 


1168 

HBX 

1 



17,2217 

53*562 0 


PXCH NPo 


1169 

rpx 

2 

LAST 

963 

17,2220 

31*742 1 

APO(EP) 

CAE BP 

SPXSP MJLTIPLY POR NUMERATOR COMPONENT 

11T0 





IT, 2221 

0 0006 1 


EXTEND 

EP = ERRB1MP, SP, SC AT B-i REVS 

1171 

RKF 

2 

LAST 

99 

17,2222 

7 1427 0 


MP APo 


11T2 

REP 

2 

LAST 

964 

IT, 2223 

21*562 0 


DAS NPO 

COMPLETED NODE NPO, SC.AT B+i REVS 

1173 

EEP 

3 

LAST 

964 

17,2224 

31*561 1 

NPCWCDE 

CAE NPO 

FORM NODE NPD SPXDP MULTIPLY BY GAIN 

1174 





17,2225 

0 0006 1 


EXTEND 


1175 

hex 

2 

LAST 

104 

17,2228 

7 1651 0 


MP KPGEN3 


1176 

HEX 

1 



IT, 2227 

53*745 1 


DXCH NPO 


1177 

HEX 

4 

LAST 

964 

17,2230 

31*562 1 


CAE NPO *1 


1178 





IT, 2231 

0 0006 1 


extend 


11T9 

HEX 

3 

LAST 

964 

17,2232 

7 1651 0 


MP KPGFN3 


1180 





IT, 2233 

22 007 0 


ZL 


1181 

Hff 

218 

LAST 

956 

IT, 2234 

22 000 1 


IXCH a 


1182 

REP 

2 

LAST 

964 

17,2235 

21*745 1 


DAS NPO 

SC.AT B+4 ASCREv SINCE KPGEN3 AT B,3 

1183 

RBP 

3 

LAST 

964 

17,2238 

53*745 1 


DxCH NPD 

PIX UP SCALING 

1184 





17,2237 

20 001 1 


DDCLBL 


1185 





17,2240 

20 001 1 


DDClBL 


1188 





17,2241 

20 001 1 


DDCUBL 


1187 





17,2242 

20 001 1 


ddcxjbl 


1188 

REF 

4 

LAST 

964 

17,2243 

53*745 1 


DxCH NPD 

COMPLETED NODE NPD, SC AT lASCREV 

1189 

RRP 

54 

LAST 

932 

17,2244 

0 4574 0 


1C POST JUMP 

TRANSFER BACK TO REGULAR DAP CODING FOR 

1190 

HEX 

1 



17,2245 

40441 1 


CADR POFXSET 

OUTPUT (NPO = ODTMP, DP) 

1191 





17,2246 

0 0006 1 

NPlNCDB 

EXTEND 

FORM NODE NPi COLLECT (PAST NP2> 

1192 

REP 

1 



IT ,2247 

3 1542 0 


DCA NP2 

(COBS HERB PRCM REG DAP CODING) 

1193 

REP 

1 



17,2250 

53*737 1 


DXCH NPlTMP 


1194 

REP 

5 

LAST 

964 

17,2251 

4 1561 0 

BP1CNP0) 

CS NPO 

DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 

1195 





17,2252 

0 0006 1 


EXTEND 


1196 

1 EP 

2 

LAST 

99 

IT, 2253 

7 1436 0 


MP BPi 


1197 

HEP 

2 

LAST 

964 

17,2254 

21«T3T 1 


DAS NPlTMP 


1198 

RHP 

6 

LAST 

964 

17,2255 

4 1562 0 


CS NPO +1 


1199 





17,2256 

0 0006 1 


EXTEND 


1200 

REP 

3 

LAST 

964 

17,2257 

7 1436 0 


MP BPi 


1201 

REF 

3 

LAST 

964 

17,2260 

27*737 1 


ADS NPlTMP +1 


1202 

HEP 103 

LAST 

955 

17,2261 

54 001 1 


TS L 


1203 





17,2262 

1 2264 1 


TCP *2 


1204 

RHP 

4 

LAST 

964 

17,2263 

27*736 0 


ADS NPlTMP 
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REP T LAST 964 


REP 4 LAST 964 
REP 5 LAST 964 
REP 104 LAST 964 


17.2264 4 1581 0 

17.2265 0 0006 1 


17.2266 7 1437 1 

17.2267 27 «7 37 1 


Cs NPO 

EXTEND 

MP BPi +1 


ADS NPlTMP <-1 


17.2270 

17.2271 


54 001 1 
1 2273 1 


6 LAST 965 17,2272 2T«736 0 


ADS NPlTMP 


REP 3 LAST 964 


REP 2 LAST 99 

REP T LAST 965 

REP 4 LAST 965 


REP 3 LAST 965 
REP 8 LAST 965 
REP 105 LAST 965 


REP 9 LAST 965 


,2273 31*742 1 APl(EP) 

,2274 0 0006 1 

,2275 7 1430 0 

,2276 21*737 1 

,2277 31*742 1 

,2300 0 0006 1 

,2301 7 1431 1 

,2302 27 «7 37 1 

,2303 54 001 1 

,2304 1 2306 1 

,2305 27*736 0 


CAE EP 

EXTBTO 
MP API 

DAS NPlTMP 
CAE EP 

BXTB® 

MP API +1 

ADS NPlTMP +1 
TS L 

TCP +2 


ADS NPlTMP 


REP 1 
REP 1 

REP a LAST 965 


REP 2 LAST 100 

REP 2 LAST 965 

REP 9 LAST 965 


REF 3 LAST 965 
REP 3 LAST 965 
REP 106 LAST 965 


REP 4 LAST 965 
REP 10 LAST 965 


REP 4 LAST 985 
REP 5 LAST 965 
REP 107 LAST 965 


REP 6 LAST 965 


17.2306 

17.2307 

17.2310 

17.2311 

17.2312 

17.2313 

17.2314 

17.2315 

17.2316 

17.2317 

17.2320 

17.2321 

17.2322 

17.2323 

17.2324 

17.2325 

17.2326 

17.2327 
17,2230 

17.2331 

17.2332 


0 0006 1 

3 1544 0 
53*712 0 

4 1561 0 
0 0006 1 
7 1440 1 
21*712 0 
4 1562 0 
0 0006 1 
7 1440 1 
27«712 0 
54 001 1 
1 2324 1 
27«711 0 
4 1561 0 
0 0006 1 
7 1441 0 
27*712 0 
54 001 1 
1 2333 1 
27«711 0 


NP2NQDE EXTEND 
DCA 
DxCH 

BP2(NP0> CS 

Exraro 

MP 

ms 

cs 

EXTEND 

MP 

ADS 

TS 

TCP 

ADS 

CS 

extend 

MP 

ADS 

TS 

TCP 

ADS 


NP3 

NP2TMP 

NPO 


BP2 

NP2TMP 
NPO +1 


BP2 

NP2TMP *1 
L 
+2 

NP2TMP 

NPO 


BP2 +1 
NP2TMP +1 
L 
♦2 

NP2TMP 


REP 5 LAST 965 


REP 2 LAST 99 

REP T LAST 965 

REP 6 LAST 965 


REP 3 LAST 965 
REP 8 LAST 965 


17.2333 31«742 1 AP2(EP) CAB BP 

17.2334 0 0006 1 EXTEND 

IT, 2335 7 1432 1 MP Ap Z 

17,2336 21«T12 0 DAS NP2TMP 

IT, 2337 31*742 1 CAE EP 

17,2340 0 0006 1 EXTE® 

IT, 2341 7 1433 0 MP AP2 tl 

17,234 2 27*712 0 ADS NP2TMP +1 


17,2336 21«712 0 

IT, 2337 31*742 1 


17,2340 0 0006 1 

IT, 2341 7 1433 0 


17,234 2 27*712 0 


USER.S PAGE NO. 5 E6 S3 


DPXSP MULTIPLY FOR NUMERATOR COMPONENT 


COMPLETED NODE NPl 


FORM NODE NP2 COLLECT (PAST NP3> 


DPXDP MJLTIPLY FOR DENOMINATOR COMPONENT 


DPXSP MJLTIPLY FOR NUMERATOR COMPONENT 
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1- TVOGEN3FILTERS 


12S2 

REP 

10B 

LAST 

985 

IT, 2343 

1253 





IT, 2344 

1254 

REF 

9 

LAST 

965 

IT, 2345 

1255 

REF 

11 

LAST 

965 

IT, 2346 

1256 





1T.234T 

125T 

REF 

2 

LAST 

100 

IT, 2350 

12SS 

REP 

1 



IT, 2351 

1259 

REP 

12 

LAST 

966 

IT, 2352 

1260 





IT, 2353 

1261 

REF 

3 

LAST 

966 

IT, 2354 

1262 

REP 

2 

LAST 

966 

IT, 2355 

1263 

REP 

109 

LAST 

966 

IT ,2356 

1264 





1T.235T 

1265 

REF 

3 

LAST 

968 

IT, 2380 

1266 

REP 

13 

LAST 

966 

IT, 2361 

126T 





IT, 238 2 

1268 

REF 

4 

LAST 

966 

IT, 236 3 

1269 

REF 

4 

LAST 

966 

IT, 2384 

1270 

REF 

110 

LAST 

966 

IT, 2365 

1271 





IT, 2388 

1272 

REF 

5 

LAST 

968 

1T.236T 

1273 

REF 

7 

LAST 

965 

1T.23T0 

1274 





1T.23T1 

1275 

REP 

2 

LAST 

99 

1T.23T2 

1276 

REF 

6 

LAST 

966 

1T,23T3 

1277 

REF 

8 

LAST 

966 

1T,23T4 

1278 





1T.23T5 

1279 

REF 

3 

LAST 

966 

1T.23T6 

1280 

REF 

7 

LAST 

966 

IT , 23TT 

1281 

REF 

111 

LAST 

966 

IT, 2400 

1282 





IT, 2401 

1283 

REF 

B 

LAST 

966 

IT, 2402 

*1284 






1285 

REF 

55 

LAST 

964 

IT, 2403 

1286 

REF 

1 



IT, 2404 


A128T 


54 001 1 


TS 

L 

1 2346 0 


TCP 

♦2 

27*711 0 


ADS 

NP2TMP 

4 1561 0 

np 3 ncde 

cs 

NPO 

0 0006 1 


EXTEND 

7 1442 0 


MP 

BP 3 

53*714 0 


DXCH 

NP3TMP 

4 1562 0 


CS 

NPO *1 

0 0006 1 


EXTEND 

7 1442 0 


MP 

BP 3 

27*714 0 


ADS 

NP3TMP »1 

54 001 1 


TS 

L 

1 2361 0 


TCP 

*2 

27*713 1 


ADS 

NP3WP 

4 1561 0 


CS 

NPO 

0 0008 1 


Extend 


7 1443 1 


MP 

BP3 +1 

27*714 0 


ADS 

NP3TMP 

54 001 1 


TS 

L 

1 2370 0 


TCP 

♦2 

27*713 1 


ADS 

NP3TMP 

31*742 1 

AP3(EP) 

CAE 

EP 

0 0006 1 


EXTEND 


7 1434 1 


MP 

AP3 

21*714 0 


DAS 

NP3IMP 

31*742 1 


CAE 

EP 

0 0006 1 


EXTEND 


7 1435 0 


MP 

AP3 

27*714 0 


ADS 

NP3TMP +1 

54 001 1 


TS 

L 

1 2403 0 


TCP 

*2 

27*713 1 


ADS 

NP3TMP 

0 4574 0 


1C 

POST JIMP 

405 26 1 


CADR 

DELBARP 


UffiRoS PAGE NO. 6 E8 S3 


COMPLETED NODE NP2 

FORM NODE NP3 NO PAST NODES, DIRECT 

TO DPXDP MULTIPLY FOB DENOMINATOR 
COMPONENT 


DPXSP MULTIPLY FOR NlMERATOR COMPONENT 


• 

CCMPLETED NODE NP3, AND PITCH GEN3DAP 
FILTER COMPUTATIONS 
RETUHN TO CSMDAP CODING FOR PITCH 

OFFSET-TRACKER-FILTER CCMPUTATICNS, 
and pitch dap COPYCYCLE. 



20’ 35 OCT. 28,1968 DAPCSM .195 PACE 967 



111 

L TVCGB73PILTGRS PACE NO. T Efl S3 


P1288 YAW CEN3DAP PILTER 


1289 





17,2405 

0 0006 

1 

NYoNCDB 

EXTEND 


POEM NODE NYo COLLECT CPASTNYD 

1290 

RgP 

1 



17,2406 

3 1610 

1 


DCA 

NYT 

C CONES HERE PRCM REG. DAP CODING) 

1291 





17,2407 

20 001 

1 


DDOUBL 



1292 





17,2410 

20 001 

1 


DDOOBL 



1293 

REP 

1 



17,2411 

53*606 

1 


DXCH 

NYo 


1294 

REP 

1 



17,2412 

31*742 

1 

AYo<EY) 

CAE 

EY 

SPXSP MULTIPLY PQR NUMERATOR COMPONENT 

1295 





17,2413 

0 0006 

1 


EXTEND 


BY = EHHBTMP, SP, SC .AT B-i REVS 

1296 

REP 

1 



17,2414 

7 1427 

0 


MP 

AYo 


129T 

REP 

2 

LAST 

907 

17,2415 

21*606 

1 


DAS 

NYo 

COMPLETED NODE NYO, SC.AT B+l REVS 

1298 

REP 

3 

CAST 

967 

17,2416 

31*605 

0 

NYDNODE 

CAE 

NYo 

FORM NODE NYD SPXDP MJLTIPLY BY GAIN 

1299 





17,2417 

0 0006 

1 


EXTEND 



1300 

REP 

1 



17,2420 

7 1651 

0 


MP 

KYGBL3 


1301 

REP 

1 



17,2421 

53*745 

1 


DXCH 

NYD 


1302 

REP 

4 

LAST 

967 

17,2422 

31*606 

0 


CAE 

NYo *1 


1303 





17,2423 

0 0006 

1 


EXTEND 



1304 

REP 

2 

LAST 

967 

17,2424 

7 1651 

0 


MP 

KYGB*3 


1305 





17,2425 

22 007 

0 


ZL 



1306 

REP 

219 

LAST 

964 

17,2426 

22 000 

1 


LXCH 

A 


1307 

REP 

2 

LAST 

967 

17,2427 

21*745 

1 


DAS 

NYD 

SC.AT B+4 ASCREV SINCE KYGEN3 AT B+i 

1308 

REP 

3 

LAST 

967 

17,2430 

53*745 

1 


DXOH 

NYD 

PIX UP SCALING 

1309 





17,2431 

20 001 

1 


DDCXJBL 



1310 





17,2432 

20 001 

1 


DDQjBL 



1311 





17,2433 

20 001 

1 


DDCUBL 



1312 





17,2434 

20 001 

1 


DDCUSL 



1313 

REP 

4 

LAST 

967 

17,2435 

53*745 

1 


DXCH 

NYD 

COMPLETED NODE NYD, SC.AT lASCREV 

1314 

REP 

56 

LAST 

966 

17,2436 

0 4574 

0 


TC 

POSTJUMP 

TRANSFER BACK TO REGULAR DAP CODING FOR 

1315 

REP 

1 



17,2437 

40730 

1 


CADR 

YCFPSET 

OUTPUT CNYD = ODTMP, DP) 

1316 





17 , 2440 

0 0006 

1 

NYlNCDE 

EXTEND 


FORM NODE NYl COLLECT (PASTNY2) 

1317 

REP 

1 



17,2441 

3 1566 

0 


DCA 

NY2 

CCCMBS HERE FROM REG. DAP CODING) 

1318 

REP 

1 



17,2442 

53*737 

1 


DXCH 

NYlTMP 


1319 

REP 

5 

LAST 

967 

17,2443 

4 1605 

1 

BYlCNYo) 

CS 

NYO 

DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 

1320 





17,2444 

0 0006 

1 


EXT®® 



1321 

REP 

1 



17,2445 

7 1436 

0 


MP 

BYl 


1322 

REP 

2 

LAST 

967 

17 , 2446 

21*737 

1 


DAS 

NYlTMP 


1323 

REP 

6 

LAST 

967 

17 , 2447 

4 1606 

1 


CS 

NYo +1 


1324 





17,2450 

0 0006 

1 


Extend 



1325 

REP 

2 

LAST 

967 

17,2451 

7 1436 

0 


MP 

BYl 


1326 

REP 

3 

LAST 

967 

17,2452 

27*737 

1 


ADS 

NYlTMP tl 


1327 

REP 

112 

LAST 

966 

17,2453 

54 001 

1 


TS 

L 


1328 





17,2454 

1 2456 

0 


TCP 

*2 


1329 

REP 

4 

LAST 

967 

17,2455 

27*736 

0 


ADS 

NYlTMP 



L 
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1330 

REP 

7 

LAST 

96T 

IT ,2458 

1331 





IT ,2457 

1332 

REP 

3 

LAST 

96T 

IT, 2460 

1333 

KEF 

5 

LAST 

967 

IT , 246 1 

1334 

REP 

113 

last 

967 

IT, 2462 

1335 





IT, 2463 

1336 

REP 

6 

LAST 

988 

IT, 2464 

133T 

REP 

2 

LAST 

96T 

IT, 2465 

1338 





IT, 2468 

1339 

REP 

1 



IT, 2467 

1340 

REP 

T 

last 

968 

17,2470 

1341 

REP 

3 

LAST 

968 

17,2471 

1342 





IT ,247 2 

1343 

REP 

2 

LAST 

968 

IT, 2473 

1344 

REP 

8 

LAST 

968 

17,2474 

1345 

REP 

114 

LAST 

968 

17,2475 

1346 





17,2476 

1347 

REP 

9 

LAST 

968 

17,2477 

1348 





IT, 2500 

1349 

REP 

1 



IT, 2501 

1350 

REP 

1 



IT, 2502 

1351 

REP 

8 

LAST 

968 

IT, 2503 

1352 





IT, 2504 

1353 

REP 

1 



IT, 2505 

1354 

REP 

2 

LAST 

968 

IT, 2506 

1355 

REP 

9 

LAST 

968 

IT, 2507 

1356 





IT, 2510 

1357 

REP 

2 

LAST 

968 

IT, 2511 

1358 

REP 

3 

LAST 

968 

IT, 2512 

1359 

REP 

115 

LAST 

968 

17,2513 

1300 





IT, 2514 

1361 

REP 

4 

LAST 

968 

17,2515 

1362 

REP 

10 

LAST 

968 

17,2516 

1363 





17,2517 

1364 

REP 

3 

LAST 

968 

IT, 25 20 

1365 

REP 

5 

LAST 

968 

17,2521 

1366 

RESF ns 

LAST 

968 

IT, 2522 

1367 





17,2523 

1368 

REP 

6 

LAST 

968 

IT, 25 24 

1369 

REP 

4 

LAST 

968 

17,2525 

1370 





17,2526 

1371 

REP 

1 



17,2527 

1372 

REP 

7 

LAST 

968 

17.2530 

1373 

REP 

5 

LAST 

968 

17,2531 

1374 





17,2532 

1375 

REP 

2 

LAST 

968 

17,2533 


4 1605 1 


cs 

NYo 

0 0006 1 


EXTB® 

7 1437 1 


MP 

BYl +1 

27*737 1 


ADS 

NYlTMP *1 

54 001 1 


TS 

L 

1 2485 0 


TOF 

*2 

27*736 0 


ADS 

NYlTMP 

31*742 1 

AYi(EY) 

CAE 

EY 

0 0008 1 


EXTB© 

7 1430 0 


MP 

AYl 

21-737 1 


DAS 

NYlTMP 

31*742 1 


CAE 

BY 

0 0006 1 


EXTB© 

7 1431 1 


MP 

AYl *1 

27*737 1 


ADS 

NYlTMP *1 

54 001 1 


TS 

L 

1 2500 1 


TOP 

*2 

27*736 0 


ADS 

NYlTMP 

0 0006 1 

NY2NCDG 

EXTEND 


3 1570 1 


DCA 

NY3 

53*712 0 


DXCH 

NY21MP 

4 1605 1 

BY2 <NYo) 

CS 

NYo 

0 0006 1 


EXTEND 


7 1440 1 


MP 

BY 2 

21*712 0 


DAS 

NY2TMP 

4 1606 1 


CS 

NYo +1 

0 0006 1 


EXTEND 


7 1440 1 


MP 

BY 2 

27*712 0 


ADS 

NY2TMP *1 

54 001 1 


TS 

L 

1 2516 0 


TOF 

*2 

27*711 0 


ADS 

NY2TMP 

4 1605 1 


CS 

NYo 

0 0006 1 


EXTEND 


7 1441 0 


MP 

BY 2 + i 

27*712 0 


ADS 

NY2TMP +1 

54 001 1 


TS 

L 

1 2525 0 


TOF 

*2 

27*711 0 


ADS 

NY2IMP 

31*742 1 

AY2(EY> 

CAE 

EY 

0 0006 1 


Extend 


7 1432 1 


MP 

AY2 

21*712 0 


DAS 

NY2TMP 

31«742 1 


CAE 

EY 

0 0006 1 


Extend 


7 1433 0 


MP 

AY2 +1 


USBR.S PAGE NO. 8 E# S3 


DPXSP MULTIPLY TOR NUMERATOR COMPONENT 


COMPLETED NODE NYl 

POEM NCDE NY2 COLLECT (PAST NY3) 


DPXDP HJLTIPLY FOR DBNCMINATOR COMPONENT 


DPXSP MULTIPLY FOR NUMERATOR COMPONENT 
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TVCGEN3PILTERS 


USBRoS PAGE NO. 


E6 S3 




1318 

REP 

8 

LAST 

968 

IT, 25 34 

27«712 

0 

1311 

REP 

111 

LAST 

968 

IT, 25 35 

54 001 

1 

1318 





IT, 25 36 

1 2540 

0 

1319 

HEP 

9 

LAST 

969 

IT, 2531 

27*711 

0 

1380 

REP 

11 

LAST 

968 

11,2540 

4 1605 

1 

1381 





IT, 2541 

0 0006 

1 

1382 

REP 

1 



11,2542 

7 1442 

0 

1383 

REP 

1 



IT, 2543 

53*714 

0 

1384 

REP 

12 

LAST 

969 

11,2544 

4 1606 

1 

1385 





IT , 2545 

0 0006 

1 

1386 

REP 

2 

LAST 

969 

IT, 2546 

7 1442 

0 

1381 

REP 

2 

LAST 

969 

11,2547 

27«714 

0 

1388 

REP 

118 

LAST 

969 

17,2550 

54 001 

1 

1389 





17,2551 

1 2553 

1 

1390 

REP 

3 

LAST 

969 

17,255 2 

27*713 

1 

1391 

REP 

13 

LAST 

969 

17,2553 

4 1605 

1 

1392 





17 ,2554 

0 0006 

1 

1393 

HEP 

3 

LAST 

969 

17,2555 

7 1443 

1 

1394 

REP 

4 

LAST 

969 

17,2556 

27*714 

0 

1395 

REP 

119 

LAST 

969 

17,2557 

54 001 

1 

1398 





17,2560 

1 258 2 

0 

1391 

REP 

5 

LAST 

989 

17,2561 

27*713 

1 

1398 

REP 

6 

LAST 

968 

17,256 2 

31*742 

1 

1399 





17,2563 

0 0006 

1 

1400 

REF 

1 



17,2584 

7 1434 

1 

1401 

REF 

6 

LAST 

969 

17,2565 

21*714 

0 

1402 

REP 

1 

LAST 

969 

17,2566 

31*742 

1 

1403 





17,2567 

0 0006 

1 

1404 

REP 

2 

LAST 

969 

17,2570 

7 1435 

0 

1405 

REP 

1 

LAST 

969 

17,2571 

27*714 

0 

1406 

REP 

120 

LAST 

969 

17,2572 

54 001 

1 

1401 





17,2573 

1 2575 

0 

1408 

REP 

8 

LAST 

969 

17,2574 

27*713 

1 

A1409 








1410 

HEP 

57 

LAST 

96T 

17,2575 

0 4574 

0 

1411 

REP 

1 



17,2576 

41015 

0 


ADS NY2TMP +1 
TS L 

TCP *2 
ADS NY2TMP 


NY3NCDE 


CS 

EXTEND 

MP 

DXCH 

CS 

EXTBTO 

MP 

ADS 

TS 

TCP 

ADS 

CS 

EXTEND 

MP 

ADS 

TS 

TCP 

ADS 


NYO 

BY3 
NY3TMP 
NYo +1 

BY 3 

NY3TMP +1 
L 
♦2 

NY3TMP 

NYo 

BY3 *1 
NY3TMP +1 
L 
+2 

NY3TMP 


AY3CEY) CAE EY 

EXTEND 
MP AY3 

DAS NY3TMP 
CAE EY 

extend 

MP AY3 <-1 

ADS NY3TMP *1 
TS L 

TCP +2 

ADS NY3TMP 


TC 

CADR 


POSTJIMP 

DELBARY 


COMPLETED NODE NY2 

FORM NODE NY 3 NO PAST NODES, DIRECT 

TO DPXDP MULTIPLY POR DENOMINATOR 
COMPONENT 


DPXSP MULTIPLY POR NUMERATOR COMPONENT 


A1412 


COMPLETED NODE NY 3 , and YAW GEN3DAP 
FILTER COMPUTATIONS 
RETURN TO CSMDAP CODING FOR YAW 

OFF SET- TRACkER-PI LIP R COMPUTATIONS, 
AND YAW DAP COPYCYCLE. 
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L 

MTStBs 



















USBRaS PACK ] 

0001 




20,3585 




BANK 

20 


0002 

REP 

1 


21,2000 




sbtloc My subs 


0003 




21,2028 




BAttC 



0004 

REP 

3 LAST 

202 

26,1510 




EBANK: 

: KMPAC 


0005 

REP 

1 


4767 



SPCOSl 

equals spcos 


0006 

REP 

1 


4770 



SPSINl 

equals spsin 


0007 

REP 

2 LAST 

970 

4767 



SPCOS2 

equals spcos 


0008 

REP 

2 LAST 

970 

4770 



SPSIN2 

equals spsin 


0009 

REP 

1 






COUNT 

21/DAPMS 


R0010 

(NS AND ONE HALP PRECISION MULTIPLICATION ROUTINE 



0011 

REP 

2 LAST 

106 

21,2026 

55*512 

1 

smallmp 

TS 

KMPTB4P 

Acx*y> 

0012 




21,2027 

0 0006 

1 


EXTBTO 


0013 

REP 

4 LAST 

970 

21,2030 

7 1511 

1 


MP 

KMPAC +i 


0014 

REP 

5 LAST 

970 

21,2031 

55*511 

1 


TS 

KMPAC + i 

Ay 

0015 

REP 

172 LAST 

959 

21,2032 

3 4714 

1 


CAP 

ZERO 


0016 

REP 

6 LAST 

970 

21,2033 

57*510 

1 


XCH 

KMPAC 


0017 




21,2034 

0 0006 

1 


EXTEND 


0018 

REP 

3 LAST 

970 

21,2035 

7 1512 

1 


MP 

KMPTTWP 

AX 

0019 

REP 

T LAST 

970 

21,2036 

21*511 

1 


DAS 

KMPAC 

AX+AY 

0020 

REP 

189 LAST 

945 

21,2037 

0 0002 

0 


TC 

0 


R0021 

SUBROUTINE for double precision additions op angles 



RO022 

A AND L CONTAIN A DP(iS) ANGLE SCALED By iso DEGS TO BE ADDED TO KMPAC 


R0023 

result is placed in 

KMPAC. TIMING = 

6 

MCT (22 MCT (N OVERFLOW) 


0024 

REP 

8 LAST 

970 

21,2040 

21*511 

1 

DPADD 

DAS 

KMPAC 


0025 




21,2041 

0 0008 

1 


EXTEND 



0026 

REP 

1 


21,2042 

1 2057 

0 


BzP 

TSK *1 

NO OVERFLOW 

0027 

REP 

9 LAST 

970 

21,2043 

11*510 

0 


CCS 

KMPAC 


0028 

REP 

1 


21,2044 

1 2060 

1 


TCP 

DPADO+ 

+ OVERFLOW 

0029 




21,2045 

1 2047 

1 


TCP 

+2 


0030 

REP 

1 


21,2046 

1 2062 

0 


TCP 

DPADD- 

- OVERFLOW 

0031 

REP 

10 LAST 

970 

21,2047 

11*511 

1 


CCS 

KMPAC + i 


0032 

REP 

1 


21,2050 

1 2065 

1 


TCP 

DPADD2+ 

UPPER = 0, LOWER + 

0033 




21,2051 

1 2053 

1 


TCP 

♦2 


0034 




21,2052 

4 0000 

0 


C(M 


UPPER = 0, LOWER - 

0035 

REP 

22 LAST 

957 

21,2053 

6 4672 

0 


AD 

POSMAX 

LOWER = 0, A=o 

0036 

REP 

11 LAST 

970 

21,2054 

55*511 

1 


TS 

KMPAC +i 

CAN NOT OVERFLOW 

0037 

REP 

23 I-AST 

970 

21,2055 

3 4672 

0 


CA 

POSMAX 

UPPER WAS = 0 

0038 

REP 

12 LAST 

970 

21,2056 

55*510 

0 

TSK 

TS 

KMPAC 


0039 

REP 190 LAST 

970 

21,2057 

0 0002 

0 


TC 

0 


0040 

REP 

5 LAST 

957 

21,2060 

6 4674 

0 

DPADD + 

AD 

NECJMAX 

KMPAC GREATER THAN 

0041 

REP 

2 LAST 

970 

21,2061 

1 2056 

1 


TCP 

TSK 
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L MYSLBS 


0042 





21,2082 

0043 

REP 

24 

LAST 

970 

21,2063 

0044 

REP 

3 

LAST 

970 

21,2064 

0045 

REP 

6 

LAST 

970 

21,2065 

0046 

REP 

13 

LAST 

970 

21,2066 

0047 

REP 

7 

LAST 

971 

21,2067 

0048 

REP 

4 

LAST 

971 

21,2070 


4 0000 

0 

DPADD- 

COM 


6 4672 

0 


AD 

POS4AX 

1 2056 

1 


TCP 

TSK 

6 4674 

0 

DPADD2+ 

AD 

NEOMAX 

55*511 

1 


TS 

KMPAC +1 

3 4674 

0 


CA 

NEGMAX 

1 2056 

1 


TCP 

T3C 


UffiR»S PACE NO. 2 Be S3 

KMPAC LESS THAN 0 

CAN NOT 0/ERFLCW 
UPPER WAS = 0 



l 


20 ’35 OCT. 28,1968 DAPCS 4 .195 PACE 972 
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l aCs-CaM dioital autopilot 


poooi 

R0002 

0003 

0004 

0005 


T5 interrupt program for ms rcs-csm autopilot 
start op ts interrupt program 

20,3565 

HEP 2 LAST 691 21,2000 

21,2071 


BANK 20 
fflTLOC DAPS3 
BANK 


0006 REP 


COUNT 21 /DA PRC 




000T 

REP 

14 

LAST 

0008 

REF 

10 

LAST 

0009 

0010 
00101 
00102 

REP 

2 

LAST 

00103 

REP 

102 

LAST 

00104 

0011 

REP 

3 

LAST 

0012 

REP 

1 


0013 

REF 

19 

LAST 

0014 

REF 

3 

LAST 

0015 

REP 

15 

LAST 

0016 

0016 

REF 

4 

LAST 

0017 

0018 

REP 

IT 

LAST 

0019 

REF 

13 

I AST 

0020 

0021 

REP 

40 

LAST 

0022 

0023 

REP 

5 

LAST 

0024 

A0025 

REP 

1 


0026 

REP 

14 

LAST 

0027 

REP 

51 

LAST 

0028 

REP 

15 

LAST 

0029 

REP 

25 

LAST 

0030 

REP 

T 

LAST 

00301 

REP 

173 

LAST 

00302 

REP 

5 

LAST 

00303 

REP 

3 

LAST 

00304 

REP 

2 

LAST 

0031 

0032 

REP 

52 

LAST 

0033 

003309 

REP 

6 

LAST 


971 

E6.1510 



959 

21,2071 

22 016 

0 

692 

21,2072 

3 1465 

1 


21,2073 

0 0006 

1 


21,2074 

6 2076 

1 


21 , 2075 

1 2100 

0 

956 

21,2076 

4 4712 

0 

973 

21,2077 

55*465 

0 


21,2100 

0 0006 

1 


21,2101 

3 2105 

1 

936 

21,2102 

53*313 

0 

692 

21,2103 

1 2107 

1 

973 

E6, 1510 



973 

21,2104 

02106 

1 


21,2105 

42066 

1 

973 

21,2106 

22 016 

0 


21,2107 

0 0006 

1 

930 

21,2110 

22 012 

1 

958 

21,2111 

3 4674 

0 


21,2112 

0 0006 

1 

682 

21,2113 

02 031 

1 


21,2114 

0 0006 

1 


21,2115 

1 2144 

0 


901 

21,2116 

4 1501 

0 

953 

21,2117 

7 4675 

0 

973 

21,2120 

27*501 

0 

971 

21,2121 

3 4672 

0 

690 

21,2122 

55*332 

0 

970 

21,2123 

3 4714 

1 

173 

21,2124 

55*567 

0 

111 

21,2125 

55«570 

0 

107 

21,2126 

55*571 

1 

973 

21,2127 

3 4675 

1 


21,2130 

0 0006 

1 

973 

21,2131 

02 031 

1 


21,2132 

0 0006 

1 


REDORCS 


RCSX3C 

RCSATT 


BBANKr 

KMPAC 

LXCH 

bankrupt 

CA 

T5 PHASE 

EXTEND 


BzMP 

*2 

TCP 

* 3 

CS 

CNE 

TS 

T5PHA® 

EXTEND 


DCA 

RCSLOC 

DXCH 

TSLOC 

TCP 

RCSATT +1 

ehank= 

KMPAC 

2CADR 

RCSATT 

LXCH 

bankrupt 

EXTEND 


CKCH 

QRUPT 

CAP 

BIT15 

EXTEND 


RAND 

CHAN31 

EXTEND 


BzP 

SBT15 


CS 

RCSFLAGS 

MASK 

BIT14 

ADS 

hcsfiags 

CAP 

POSMAx 

TS 

HOLDFLAG 

CAP 

ZERO 

TS 

ERRORX 

TS 

ERRORY 

TS 

ERRORZ 

CAP 

BIT14 

EXTEND 

RAND 

extend 

CHAN31 


USBRaS PAGE NO. 1 Eo S3 


RESTART OP AUTOPILOT COES HERE 
ON A 75 HUPT. 

IP T5 PHASE +0, -0, OR -, RESET TO - 
IP T5 PHASE +, LEAVE IT +. DO A FRESHDAP 


HOCK UP 75RUPT TO AUTOPILOT 


SAVE BB 
SAVE O 

BIT15 CHAN31 = 0 IF IMU POWER IS ON AND 
s/C CCNT SW IS IN CMC (I.E. IF G/C AUTO 

pilot is fully enabled) 

IF G/C AUTOPILOT IS FULLY ENABIHD, 

GO TO SETI5 

IP G/C AUTOPILOT IS NOT FULLY ENABLED, 
SET NORATE FLAG, 

SET HOLDFLAG +, 

zero errorx, errory, and errorz, 


AND CHECK FREE FUNCTION (BIT14 CHAN31) . 


I 
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RCS-CSM DIGITAL AUTOPILOT 


00331 

REF 

2 

last 

973 

21,2133 

1 2144 

0 


BzP 

sBns 

00332 

REF 

4 

LAST 

973 

21,2134 

55*465 

0 


TS 

TS PHASE 

00333 

REF 

1 



21,2135 

3 7676 

1 


CAP 

OCT37766 

00334 

REF 

15 

LAST 

936 

21,2136 

54 030 

0 


TS 

TINEs 

00335 

REP 

3 

LAST 

690 

21,2137 

0 2616 

1 


TCR 

ZEROJET 

0034 

REP 

1 



21,2140 

1 2334 

0 


TCP 

KWmix 

0035 





21,2141 

37770 

0 

DELTA TT 

OCT 

37770 

0036 





21,2142 

37776 

0 

DELTA TT2 OCT 

37776 

0037 





21,2143 

37634 

1 

CNESEK 

DEC 

16284 

0038 





0005 



CHANS 

equals 5 

0039 





0006 



CHAN6 

EQUALS 6 

0043 

REP 

4 

LAST 

227 

7671 



PRIO34A 

- 

PRIO34 

R0044 



M3CK PHASE CP T5 PROGRAM 








20*36 OCT. 28,1968 DAPCS4 .195 PAGE 9T4 

US8R.S PAGE NO. 2 Be S3 

IP IN PRES MODE, 00 TO SETTS. 

IP NOT IN FREE MODE, 

SCHEDULE REINITIALIZATION (PHESHDAP) 

IN 100 MS VIA TSRUPT 

ZERO JET CHANNELS IN 14 MS VIA ZEROJET 


80MS (TIMB5) 
20MS (TINES) 
1 SECITIME5) 


R0045 BECAUSE OP THE LENGTH OP THE TS PROGRAM, IT HAS BBB7 DIVIDED INTO 

R0048 THREE PARTS, TSPHASBi, TSPHASE2, AND THE JET SELECTION LOGIC 
R004T TO ALLOW FOR THE EXECUTION OP OIHER 

R0048 INTERRUPTS. T5 PHASE IS ALSO USED IN THE INITIALIZATION CP THE AUTOPILOT 
R0049 VARIABLES AT TURN CN. 

R0050 THE CODING OP T5 PHASE IS... 

B0051 + = INITIALIZE T5 RCS-CJM AUTOPILOT 

R0052 TS PHASE = +0 = PHASB2 OP THE TS PROGRAM 

R0053 - S RESTART DAP 

R0054 -0 = PHASEi OF THE TS PROGRAM 


0055 

REP 

5 

LAST 

974 

0056 

REF 

1 



0057 

REF 

1 



0058 

REF 

1 



0059 

REF 

6 

LAST 

974 

0060 

REF 

16 

LAST 

974 

0061 

REF 

2 

LAST 

107 

0062 

REF 

1 



0063 

REF 

17 

LAST 

974 


21.2144 

21.2145 

21.2146 

21.2147 

21.2150 

21.2151 

21.2152 

21.2153 

21.2154 


11*465 
1 25 30 
1 2645 
1 2532 
55*465 
3 0030 
55*6 34 
3 2142 
54 030 


SETIS 


CCS 

TCP 

TCP 

TCP 

TS 

CA 

TS 

CAP 

TS 


TS PHASE 

PRE34DAP 

T5PHASE2 

REDAP 

TS PHASE 

TIMES 

TSTIMB 

DELTA TT2 

TIME5 


TURN CN AUTOPILOT 

branch to phasE 2 of program 

restart autopiigt 

PHASE 1 RESET EOR phase 2 

USED IN COMPENSATING FOR DELAYS IN TS 
RESET for TSRUPT IN 20MS FOR PHASEz 
OP PROGRAM 
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L 

SCS-CS4 DIGITAL AUTOPILOT 





F0064 

MU status check 






0065 

REP 

26 

LAST 

381 

21,2155 

4 1321 1 


CS 

W0DBS33 

0066 

REF 

36 

LAST 

777 

21,2156 

7 4705. 0 


MASK 

BIT8 

006T 

REP 220 

LAST 

967 

21,2157 

10 000 0 


CCS 

A 

006 a 

REP 

1 



21,2160 

1 2174 0 


TCP 

RATEFILT 

0069 

REP 

16 

LAST 

973 

21,2161 

4 1501 0 

FREEOK 

CS 

HCSFLAGS 

00T0 

REP 

53 

LAST 

973 

21,2162 

7 4675 0 


MASK 

BIT14 

0071 

REP 

17 

LAST 

975 

21,2163 

27=501 0 


ADS 

HCSFLAGS 

OOT2 

REP 

54 

LAST 

975 

21,2164 

3 4675 1 


CAP 

BIT14 

0073 

REP 

8 

LAST 

973 

21,2165 

55=332 0 


TS 

H0LDPLAC3 

A0074 










A0075 










0076 





21,2166 

0 0006 1 


EXT©® 


0077 

REP 

7 

LAST 

973 

21,2187 

02 031 1 


RAND 

CHAN 31 

0078 





21,2170 

0 0006 1 


EXTB® 


0079 

HEP 

1 



21,2171 

1 2403 0 


BzF 

KRESl>Gl 

0080 

REF 

1 



21,2172 

1 2520 0 


TCP 

REINIT 

0081 





21,2173 

00030 1 

BITS4.5 

OCT 

30 

0082 

HEP 

18 

LAST 

975 

21,2174 

3 1501 1 

RATEFILT 

CA 

HCSFLAGS 

0083 

REP 

55 

LAST 

975 

21,2175 

7 4875 0 


MASC 

BIT14 

0084 





21,2176 

0 0006 1 


EXTEND 


0085 





21,2177 

1 2201 1 


BZF 

*2 

0086 

REF 

2 

LAST 

974 

21,2200 

1 2334 0 


TCP 

KMATOIX 

R0087 



rate filter 

TIMING = 7.72MS 



R0088 

RATE 

FILTER EQUATIONS 





R0089 

DRHO 

- DELRHO 

- ( .1 )ADOT + (1 

- GAINlIDHHO 



R0090 







-1 



R0091 

ADOT 

- ADOT 

* GAIN2 DRHO ♦ 

kmj DPT 




R0092 



-1 







R0093 


- 


* 

- 





R0094 

•here delrho - 

AMG8 

(CDU - OXI I 




R0095 






-1 




0096 

HEP 

38 

LAST 

905 

21,2201 

3 4711 1 


CAP 

TWO 

0097 

HEP 

3 

LAST 

110 

21,2202 

55*506 1 

DRHOLOOP 

TS 

SPNDX 

0098 





21,2203 

6 0000 1 


DOUBLE 


0099 

REP 

2 

LAST 

106 

21,2204 

55*507 0 


TS 

DPNDX 

0100 

HEP 

3 

LAST 

975 

21,2205 

51*507 1 


INDEX 

DPNDX 

0101 

REF 

2 

LAST 

106 

21,2206 

4 1552 0 


CS 

DRHO 

0102 





21,2207 

0 0006 1 


extend 


0103 

HEP 

2 

LAST 

107 

21,2210 

5 1617 0 


index 

ATTKAUM! 

0104 

REP 

1 



21,2211 

7 3063 0 


MP 

GAINl 

0105 

REP 

4 

LAST 

975 

21,2212 

51*507 1 


index 

DPNDX 

0106 

REP 

3 

LAST 

975 

21,2213 

21*553 1. 


DAS 

DRHO 

0107 





21,2214 

0 0006 1 


EXTEND 




US9t*S PAGE NO. 3 Be S3 


check mu status 
BITS = 0 MU CK 

bits = 1 no imu 

BIT14 INDICATES THAT RATES HAVE NOT BEEN 
INITIALIZE 

NO ATTITTDS KEFBRKICB 

STOP ANY AUTOMATIC STEERING AND PREPARE 
TO PICK UP CDU ANGLES UPON RESUMPTION OF 
ATTITUDE HOLD 

CHECK FOR FREE MODE 

IN FREE MODE provide free control only 
TILT 

SEE IP RATEFILTER HAS BEEN INITIALIZED 

IF SO, PROCEED WITH RATE DERIVATION 

IP NOT, SKIP RATE DERIVATION 


DflHO SCALED 180 DEGS 
PICK UP DESIRED FILTER GAIN 


<1 -,064>DRHO 
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0108 

REP 

5 

LAST 

075 

0109 

REP 

G 

LAST 

108 

0110 

REP 

10 

LAST 

973 

0111 

REP 

2 

LAST 

280 

0112 

REP 

1 



0113 

REP 

17 

LAST 

976 

0114 

REP 

6 

LAST 

976 

0115 

REP 

4 

LAST 

975 

0116 

REP 

4 

LAST 

975 

OUT 

REP 

1 



one 

REP 

20 

LAST 

904 

0119 

REP 

2 

LAST 

107 

0120 





0121 

REP 

3 

LAST 

976 

0122 





A0123 





0124 





01241 

REP 

2 

LAST 

106 

0125 

REP 

11 

LAST 

936 

0126 

REP 

2 

LAST 

107 

0127 





0128 

REP 

3 

LAST 

976 

0129 





0130 

REP 

1 



0131 





0132 

REP 

2 

LAST 

107 

0133 

REP 

3 

LAST 

976 

A0134 





A0135 





0136 

REP 

2 

LAST 

108 

0137 





0138 

REP 

2 

LAST 

976 

0139 

REP 

2 

LAST 

106 

0140 

REP 

2 

LAST 

108 

0141 





0142 

REP 

3 

LAST 

976 

0143 

REP 

1 



0144 

REP 

14 

LAST 

936 

0145 

REP 

2 

LAST 

107 

0146 





0147 

REP 

3 

LAST 

976 

0148 





0149 

REP 

4 

LAST 

976 

0150 





0151 

REP 

2 

LAST 

108 

0152 

REP 

3 

LAST 

976 

A01521 





0153 

REP 

2 

LAST 

108 
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21,2215 

5 1507 1 

INDEX 

DPNDx 

21,2216 

4 1534 0 

DCs 

ADOT 

21,2217 

53*511 1 

DXCH 

KMPAC 

21,2220 

3 4676 1 

CA 

quarter 

21,2221 

0 2026 1 

1C 

SAALLMP 

21,2222 

53*511 1 

DXCH 

KMPAC 

21,2223 

51*507 1 

INDEX 

DPNDX 

21,2224 

21*553 1 

DAS 

DmO 

21,2225 

11*506 1 

CCS 

SPNDx 

21,2226 

1 2202 1 

TCP 

DmCLOOP 

21,2227 

3 0032 0 

CA 

CDUX 

21,2230 

57*635 0 

XCH 

mo 

21,2231 

0 0006 1 

Extend 

21,2232 

21*635 1 

MSU 

mo 

21,2233 

4 0000 0 

CCM 


21,2234 

22 007 0 

ZL 


21,2235 

53*516 0 

DXCH 

DELTEMPX 

21,2236 

3 0033 1 

CA 

CDUY 

21,2237 

57*636 0 

XCH 

moi 

21 , 2240 

0 0006 1 

EXTEND 


21,2241 

21*636 1 

MS U 

moi 

21,2242 

4 0000 0 

cot 


21,2243 

55*502 0 

TS 

T5THMP 

21,2244 

0 0006 1 

BXTBff) 


21,2245 

7 1640 0 

MP 

AMG81 

21,2246 

21*516 0 

DAS 

DELTEMPX 

21,2247 

3 1641 0 

CA 

AMGB4 

21,2250 

0 0006 1 

EXTEND 


21,2251 

7 1502 0 

MP 

TSTEMP 

21,2252 

53*520 0 

DXCH 

DELTEMpy 

21,2253 

3 1643 1 

CA 

AMGH7 

21,2254 

0 0006 1 

EXTEND 


21,2255 

7 1502 0 

MP 

TSTEMP 

21,2258 

53*522 1 

DXCH 

DELTEMPZ 

21,2257 

3 0034 0 

CA 

CDUZ 

21,2260 

57*637 1 

XCH 

mo2 

21,2261 

0 0006 1 

EXTEND 


21,2262 

21*637 0 

MSU 

mc>2 

21,2263 

4 0000 0 

CCM 


21,2264 

55*502 0 

TS 

TSTEMP 

21,2265 

0 0006 1 

EXTEND 


21,2266 

7 1642 1 

MP 

AM®5 

21,2267 

21*520 0 

DAS 

DELTEMpy 

21,2270 

3 1644 0 

CA 

AMGRa 

21,2271 

0 0006 1 

EXTEND 



-C.llADOT 


1EASURED BCDy RATES— 


DGLRHO = AM® (CDU - CDU ) 
-1 


(CCUY - RHOi ) SCALED 90 DEGS 


DELTEMPX = (CIXOC-RHO) + AMGBi(CDuy-RHOl) 
HIST BE DOUBLE PRECISION OR WILL l-OSE 
PULSES 


<CDUZ - RH02) SCALED 90 DECS 


DBLTEMpy =AMGfl4(CDUY-RHOl ) 

t- AMGB5CCDUZ-RHO2) 
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9155 

RS* 

5 

LAST 

976 

21,2272 

7 1502 

0 

MP 

T5TEMP 

9159 

RSP 

2 

LAST 

9T6 

21,2273 

21*522 

1 

DAS 

DBL1S4PZ 

*01591 










915T 

REP 

39 

LAST 

975 

21,2274 

3 4711 

1 

CAP 

TWO 

9159 

REP 

5 

LAST 

976 

21,2275 

55*506 

1 

ADOILOOP TS 

SPNDX 

9159 





21,2278 

6 0000 

1 

DOUBLE 


9199 

REP 

7 

LAST 

976 

21,2277 

55*507 

0 

TS 

DPNDX 

91901 





21,2300 

0 0006 

1 

EXTEND 


01902 

REP 

8 

LAST 

977 

21,2301 

5 1507 

1 

INDEX 

DPNDX 

91903 

REP 

4 

LAST 

976 

21,2302 

3 1516 

1 

DCA 

DELTPMPX 

91904 

REP 

9 

LAST 

977 

21,2303 

51«507 

1 

INDEX 

DPNDX 

01905 

REP 

5 

LAST 

976 

21,2304 

21*553 

1 

DAS 

omo 

01909 





21,2305 

0 0006 

1 

EXTEND 


91907 

REP 

10 

LAST 

977 

21,2308 

5 1507 

1 

INDEX 

DPNDX 

91906 

REP 

5 

LAST 

977 

21,2307 

3 1516 

1 

DCA 

DELTEMPX 

91909 

REP 

11 

LAST 

977 

21,2310 

51«507 

1 

INDEX 

DPNDX 

019091 

REP 

2 

LAST 

106 

21,2311 

21*542 

1 

DAS 

merrorx 

0191 

REP 

12 

LAST 

977 

21,2312 

51«507 

1 

INDEX 

DPNDX 

9192 

REP 

6 

LAST 

977 

21,2313 

3 1552 

1 

CA 

Dmo 

9193 





21,2314 

6 0000 

1 

DOCILE 


0194 





21,2315 

6 0000 

1 

DOUBLE 


0195 





21,2316 

0 0006 

1 

Extend 


9199 

REP 

3 

LAST 

975 

21,2317 

5 1617 

0 

INDEX 

atikaian 

919T 

REP 

1 



21,2320 

7 3101 

0 

MP 

GAIN 2 

9198 

REP 

13 

LAST 

977 

21,2321 

51*507 

1 

INDEX 

DPNDX 

0199 

REP 

7 

LAST 

976 

21,2322 

21*534 

0 

DAS 

ADOT 

0170 

REP 

6 

LAST 

977 . 

21,2323 

51*506 

0 

INDEX 

SPNDx 

91T1 

REP 

3 

LAST 

691 

21,2324 

3 1620 

1 

CA 

KMJ 

9172 





21,2325 

0 0006 

1 

EXTB® 


9173 

REP 

7 

LAST 

977 

21,2328 

5 1506 

0 

INDEX 

SPNDX 

0174 

REP 

2 

LAST 

106 

21,2327 

7 1547 

1 

MP 

DPT 

0175 

REP 

14 

LAST 

977 

21,2330 

51*507 

1 

INDEX 

DPNDX 

9179 

HEP 

8 

LAST 

977 

21,2331 

21*534 

0 

DAS 

ADOT 

9177 

REP 

8 

LAST 

977 

21,2332 

11*506 

1 

CCS 

SPNDX 

9178 

HEP 

1 



21,2333 

1 2275 

1 

TCP 

ADOILOOP 

9179 

HEP 

2 

LAST 

107 

21,2334 

3 1560 

0 

KMAralX CA 

ATTSEC 

0180 

REP 

2 

LAST 

833 

21,2335 

7 4721 

0 

MASK 

L0W4 

0181 

REP 

221 

LAST 

975 

21,2336 

10 000 

0 

CCS 

A 

0182 

REP 

1 



21,2337 

1 2345 

0 

TCP 

IEN1HSHK 

0183 

REP 

5 

LAST 

974 

21,2340 

3 7671 

0 

CAP 

PRIO 34 

9184 

REP 

28 

LAST 

829 

21,2341 

0 5027 

1 

1C 

NCVAC 

0185 

REP 

18 

LAST 

976 

Ea,1510 



EBANK= 

kmpac 

0189 

REP 

1 



21,2342 

03444 

0 

2CADR 

AMBGUPDT 

0189 

REP 

1 



21,2343 

44066 

1 



0187 

REP 

4 

LAST 

918 

21,2344 

3 4334 

1 

CAP 

NINE 

0188 

REP 

3 

LAST 

977 

21 , 2345 

55«560 

1 

TEN1HSEK TS 

ATTSEC 


USER«S PAGE NO. 5 Ba S3 


DBLIEMPZ =AMCB7(CDUY-HHOl) 

♦ AMGSg I C3DUZ-RH02 ) 


N.B. 

N.B. 

PICK UP DESIRED FILTER GAINS 

ADOT + ( ,16>< .DDRHO 
-1 

s/c toroue to inertia ratio 

SCALED <450 ><1B00>/<5T.3>< 16384 >=1/1.3 


KMJ(DFT) 

BJD CALCULATION OF VEHICIE RATES 


CALL FOR 1 SEC UPDATE OF TRANSFORMATION 
MATRIX FRCM GIMBAL AXES TO BODY AXES 
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P0189 

R0191 

R0192 

R0193 

R0194 

R0195 

R0196 

R0198 

R0 199 
R0201 


ARB BEIN0 PERTOtt ® D . ™ FOLLOWING ANGLE ADDITION MUST BE MADE TO PRO/ IDE A S40UIH 
SEOlENCE OP ANGULAR COMMANDS TO THE AUTOPILOT— 


ODUXD = CDUXD + DELCDUX 
CDUYD = CDUYD + DELCDUY 
CDUZD = CDUZD t DELCDUZ 


(DOUBLE PRECISION) 
(DOUBLE PRECISION) 
(DOUBLE PRECISICN) 


THE STEERING PROGRAMS - 

1) attitude maneuver routine 

2) LEM TRACKING 

^ NGLE S ^ (OXJXD, CDUYD, CDUZD) AS WELL AS THE INCREMENTAL ANGLES (DELCDUX, DELCDUY, 
DELGDUZ) SO THAT THE GIt*®AL ANGLE COMMANDS CAN BE INTERPOLATED BETWEEN UPDATES 


R0203 HOLDFLAG CODING- 


R0204 

R0205 

R0206 

B020T 

R0208 

R0209 

R0210 

R0211 

R0212 

R021203 

R021205 

R02121 

R02122 

R0213 

H0214 

R0215 

B0216 

R0218 

B0220 

0222 

0223 

0224 
A0225 

0226 

022T 

0228 

0229 

0230 

0231 

0232 


+ = GRAB PRESENT CIXJ ANGLES AND STORE IN THETADx, THETADY THBTADz 
and PERFORM ATTITUDE HOLD ABOUT THESE ANGLES 

also ignore automatic steering 
SET = + BY 

i) initialization phase op autopilot 
2> occurance of rhc commands 

3> FREE MODE 

4) switch over to attitude hold from auto 

while doing automatic steering iin this case 

HOLDFLAG Is NOT ACTUALLY SET TO +, But THE LOGIC 
FUNCTIONS AS IF IT WERE.) 

5> S/C control SWITCH IN SCS 
6) imu power off 

♦o = in attitude hold about a previously establisied reference 
- = performing automatic maneuver 

-0 = NOT USED AT PRESENT 

. N0IE 1HAT ’ 1HIS FLAG WJST 8E ^ ^ THE STEERING PROGRAM IF IT IS TO COMMAND THE AUTOPILOT 

CMflN ® nlR HCLDFIAG setting, it siculd be monitored by the steering program 'to 

DETERMINE IF THR AUTOMATTO sRrtrRwfTR mac rc*c»^ tkity? d r» axtt-v . , . 


IF HOLDFLAG +0,-0, + , BYPASS AUTOMATIC 
COMMANDS 



REF 

9 

LAST 

975 

21,2346 

4 1332 

0 

cs 

HOLDFLAG 





21,2347 

0 0006 

1 

EXTEND 


REP 

1 



21,2350 

6 2375 

1 

BzMP 

DACNDLS 

REF 

40 

LAST 

977 

21,2351 

3 4711 

1 

DCDUINCR CAP 

TWO 

REF 

9 

LAST 

977 

21,235 2 

55*506 

1 

D6L00P TS 

SPNDX 

REF 




21,2353 

6 0000 

1 

DOUBLE 


15 

LAST 

977 

21,2354 

55*507 

0 

TS 

DPNDX 





21,2355 

0 0006 

1 

EXTEND 


REF 

222 

LAST 

977 

21,2356 

5 0000 

1 

INDEX 

A 

REP 

9. 

LAST 

585 

21,2357 

3 1647 

0 

DCA 

CTUXD 
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0233 

REP 

19 

LAST 

9TT 

21,2360 

53*511 

1 

0234 





21,2361 

0 0006 

1 

0235 

REP 

18 

LAST 

978 

21,2362 

5 1507 

1 

0236 

REP 

6 

LAST 

586 

21,2363 

3 1576 

1 

023T 

REP 

1 



21,2364 

0 2040 

1 

0238 





21,2385 

0 0006 

1 

0239 

REP 

20 

LAST 

979 

21,2366 

3 1511 

0 

0240 

REP 

10 

LAST 

978 

21,2367 

51*506 

0 

0241 

REP 

5 

LAST 

643 

21,2370 

55*572 

1 

0242 

REP 

IT 

LAST 

979 

21,2371 

51*507 

1 

0243 

REP 

10 

LAST 

978 

21,2372 

53«64T 

1 

0244 

REP 

11 

LAST 

9T9 

21,2373 

11*506 

1 

0245 

REP 

1 



21,2374 

.1 2352 

0 



OXCH 

kmpac 

EXTEND 


INDEX 

DPNW 

DCA 

DBLCDUX 

1C 

DP ADD 

EXTEND 


DCA 

KMPAC 

INDEX 

SPNDX 

TS 

TKETADX 

INDEX 

DPNDX 

OXCH 

OXIXD 

CCS 

SPNDX 

TCP 

DBLOOP 
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R02S31 

R02533 


Ass ®® LE REVISION 249 OP A OC PROGRAM COLOSSUS BY NASA 2021111-041 20*35 a 

rcs-Csm digital autopilot 

RCS-CSM AUTOPILOT ATHHBB ERROR DISPLAY 

THREE TYPES OP ATTITUDE ERRORS MAY BE DISPLAYED ON THE PDAI- 

MCDG i) AUTOPILOT POLLOWING ERRORS SELECTS) BY V6lE 

OENERATS) INTERNALLY BY THE AUTOPILOT 

M35G 2) TOTAL ATHTIPB ERRORS SELECTED BY V62S 

WITH RESPECT TO THE CONTENTS OP N22 

1 MODE 3) TOTAL ASTRONAUT ATTITIXS ERRORS SELECTED BY V63S 

3 WITH RESPECT TO THE CONTENTS OP Nl7 


20*35 CCT. 28,1988 DAPCSM .195 PAGE 980 
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R02631 

R02S33 

R02635 


yWtT0 ? OP THE FCS DAP AND ITS ABILITY TO TRACK AUTOMATIC STEERING COMANDS IN THIS 
MODE THE ATTITIPE ERRORS WILL BE ZEROED WHEN THE CMC MODE SWITCH IS IN FREE 

MODE 2 IS PROVIDED TO ASSIST THE CREW IN MANUALLY MANEJVERING THE S/C TO THE ATTITUDE (GIM8AL ANGLES) SPECIFIED 

IN N22. THE ATTITIPE ERRORS WRT THESE ANC3-ES AND THE CURRENT CDU ANGLES ARE RESOLVED INTO S/C CONTROL AXES 

AS A FLY-TO INDICATOR. 

MODe 3 IS PROVIDED TO ASSIST THE CREW IN MANUALLY MANEJVERING THE S/C TO THE ATTITUDE (GIMBAL ANGLES) SPECIFIED 

IN Nl7 . THE ATTITIPE ERRORS WRT THESE ANGLES AND THE CURRENT CSDU ANGLES ARE RESOLVED INTO S/C CONTROL AXES 

AS A FI.»Y— TO INDICATOR. 

J V R0 I IDKD J° t,W0 NlT WI1H A OP THE CURRENT CDU ANGLES, THUS SYNCHRONIZING THE MODE 3 DISPLAY 

with the current s/c attitude, this verb may be used at any to*. j 

r,rr ll ^!!L DI f^ LAYS WILL BE AVAIL IABLE IN ANY MODE (AUTO, HOLD, FREE, G+N, OR SCS) ONCE THE RCS DAP HAS BEEN 
INITIATED VIA V46E. MODE 1, HCXvEvER, WILL BE MEANINGFUL ONLY IN G,N AUTO OR HOLD THE CREW MAY PRESET (VIA 
V25N17) AN ATTITUDE REFERENCE (DESIRED GIMBAL ANGLES) INTO Nil AT ANY TIME. 

REF 19 LAST 975 21,2375 4 1501 0 DACNDLS Cs RCSFLAGS ALTERNATE BETWEEN FDAIDSPl AND FDAIDSP2 

HKr 19 [AST 7An 'll OTTO rr /nnn . tin rt " 


02TB 

REF 

19 

LAST 

975 

0279 

REF 

32 

LAST 

700 

0280 





0281 

REF 

1 



0282 

REF 

20 

LAST 

980 

0283 

REF 

7 

LAST 

904 

0284 

REP 

33 

LAST 

933 


21 , 2377 0 0008 1 

21,2400 1 3144 1 


MAac BIT4 
Extend 

BZP FDAIDSP2 


NEEDLER 


end phase i 
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P0285 FWI ATTITUDE ERROR DISPLAY SUBROUTINE 
R0286 PROGRAM DESCRIPTION’ D. KEENE S/24/6T 

R028T THIS SUBROUTINE IS USED TO DISPLAY ATTITUDE ERRORS CN IKE PDA I VIA THE DIGITAL TO ANALOG CONVERTERS (DACS) 

R0289 IN THE CDUS. CARS IS TAKEN TO METER OUT THB APPROPRIATE NUMBER OP PULSES TO THE IMU ERROR COUNTERS AND PREVENT 

R0291 OVERFTXW, TO CONTROL THE RELAY SEQUENCING, AND TO AVOID INTERPEI&ICB WITH THE COURSB ALIGN LOOP WHICH ALSO USES 

R0293 THE OACS. 

R0294 CALLING SEQUENCE’ 

R0295 DURING THE INITIALIZATION SECTION CF THE USER.S PROGRAM, BIT3 CP RCSFLAGS SHOULD BE SET TO INITIATE THE 

R029T 1URN-CN SEQUENCE WITHIN THE NEEDLES PROGRAM’ 

R0298 CS RCSFLAGS IN EBANK 0 

R0299 MASK BIT3 

R0300 ADS RCSFLAGS 

R0301 THEREAFTER, THE ATTITUDE ERRORS CfNERATED BY THE USSR SHOULD BE TRANSFERED TO THE FOLLOWING LOCATIONS IN EBANK 6 * 

R0303 AK SCALED 180 DEGREES NOIE’ THESE LOCATIONS ARE SUBJECT 

R0304 AK 1 • SCALED 180 DEGREES TO CHANGE 

R0305 AK2 SCALED 180 DEGREES 

R0306 Fill, SCALED DEFLECTION CORRESPONDS TO 16 7/8 DEGREES OP ATTITUDE ERROR 
R030T <= 384 BITS IN IMU ERROR COUNTER) 

R0308 A CALL TO NEEDLER WILL THEN UPDATE THE DISPLAY’ 

RO309 IMHINT 

8 0 3 10 TO IBNKCALL NOIE’ EHANK SHC 1 XD BE SET TO Ee 

80311 CADR NEEDLER 

80312 RELINT 

RO 313 THIS PROCESS SHOULD BE REPEATED EACH TIME THE ERRORS ARE UPDATED. AT I FA ST 3 PASSES THRU THE PROGRAM ARE 

R0315 REQUIRED BEFORE ANYTHING IS ACTUALLY DISPLAYED CN THE ERROR FCTERS. 

80316 NOIE’ EACH CALL TO NEEDLER MIST BE SEPARATED BY AT LEAST 50MS TO ASSURE PROPER RELAY SEQUENCING. 

R0318 erasable usro* 


R0319 


ak 

OXJXOD 

R0320 ■ 


aki 

CDUYOt) 

R0321 


AK2 

CDUZCM) 

B0322 


BDRIVEX 

A,L,Q 

R0323 


EDRIVEY 

T5TEMP 

R0324 


edrivez 

SPNDX 

R0325 

SWITCHES’ 

RCSFLAGS 

BITS 3,2 

R0326 

I/O CHANNELS’ 

CHAN12 

BIT 4 (COARSE ALIGN - READ ONLY) 






Asse«LE REVISION 249 OP AOC PROGRAM COLOSSUS By NASA 2021111-041 
RCS-CSM DIGITAL AUTOPILOT 


20’35 OCT. 28,1968 DAPCSM .195 PAGE 982 
ua®*S PACE NO. 10 E6 S3 


SIGN CONvENTICNt 
WHERE 


0332 

REP 

33 

LAST 

980 

0333 





0334 

REP 

33 

LAST 

918 

0335 





0336 

REP 

1 



0337 

REF 

21 

LAST 

980 

0338 

REP 

29 

LAST 

960 

0339 

REP 

22 

LAST 

9B2 

0340 

REP 

191 

LAST 

970 

0341 

REF 

23 

LAST 

982 

0342 

REP 

28 

LAST 

737 

0343 





0344 

REP 

1 



0345 

REP 

30 

LAST 

982 

0346 





0347 

REF 

2 

LAST 

243 

0348 

REP 

37 

LAST 

975 

0349 





0350 

REP 

34 

LAST 

982 

0351 

REP 

174 

LAST 

973 

0352 

REF 

13 

LAST 

904 

0353 

REP 

4 

LAST 

928 

0354 

REF 

4 

LAST 

934 

0355 

REF 

2 

LAST 

113 

0356 

REP 

2 

LAST 

113 

0357 

REP 

2 

LAST 

113 

0358 

REF 

2 

LAST 

148 

0359 

REF 

2 

LAST 

148 

0360 

REF 

2 

LAST 

148 

0361 

REP 

29 

LAST 

982 

0362 

REP 

24 

LAST 

982 

0363 

REP 

41 

LAST 

958 

0364 

REP 

25 

LAST 

982 

0365 

REF 192 

LAST 

982 

0366 

REP 

38 

LAST 

982 

0367 





0368 

REP 

35 

LAST 

982 

0369 

REP 

30 

LAST 

982 




GHAN12 BIT 6 <IMU ERROR COUNTER BttBLE) 
Q«Nl4 BIT 13,14,15 (DAC ACTIVITY) 

AK = THBWC - TKEW 
THETAC r CCK4AND ANGLE 
WETA = PRESENT ANGLE 

21.2404 3 4707 0 NffiDLER CAP BIT4 

21.2405 0 0008 1 EXTBTO 

21.2406 02 012 0 RAND CHAN12 

21.2407 0 0006 1 EXTEND 

21.2410 1 2415 1 BzP NEEDLERi 

21.2411 4 1501 0 Cs HCSPLAGS 

21.2412 7 4710 1 MASK BIT3 

21.2413 27«501 0 ADS HCSFLAGS 

21.2414 0 0002 0 TC Q 


check for coarse align enable 

IP IN COARSE ALIGN DO NOT USE If*J 
ERROR COUNTERS. DCNT USE NEEDLES 


SET BIT3 FOR INITIALIZATION PASS 


21.2415 3 1501 1 NEEDLERi CA HCSFLAGS 

21.2416 7 6211 1 MASK SIX 

21.2417 0 0006 1 EXTTMD 

21.2420 1 2455 0 BzP NEHXES3 

21.2421 7 4710 1 M4S< BIT3 

21.2422 0 0006 1 EXTEND 

21.2423 1 2446 1 BzP NEEDLBR2 


21.2420 1 2455 0 

21.2421 7 4710 1 


21.2422 0 0006 1 

21.2423 1 2446 1 


BIT3 = 0, BIT2 = 1 


21.2424 

21.2425 

21.2426 

21.2427 

21.2430 

21.2431 

21.2432 

21.2433 

21.2434 

21.2435 

21 . 2436 

21.2437 

21.2440 

21.2441 

21.2442 

21.2443 

21.2444 

21.2445 


4 4705 0 


0 0006 1 

03 012 1 

4 4714 0 
55«476 1 
55«477 0 
5S«SOO 1 
55«503 1 
55«504 0 
55«505 1 
54 050 0 
54 051 1 
54 052 1 
4 6211 1 
7 1501 0 
6 4711 1 
55«501 0 
0 0002 0 


NEEDLEn CS 
TS 
TS 
TS 
TS 
TS 
TS 
TS 
TS 
TS 
CS 


CS BITS 
EXTEND 

WAND CHAN 12 


CS ZERO 

TS Ak 

TS AK1 

TS AK2 

TS EDRIVEX 

TS HDRIVBY 

TS EDRIVEZ 

TS CDuxCND 

TS CDUYCMD 

TS CDuzOO 

CS SIX 

MASK HCSFLAGS 

AD BIT2 

TS HCSFLAGS 

TC O 


FIRST PASS BIT3 = 1 

DISABLE Ml ERROR COUNTER TO ZERO DACS 
MUST WAIT at I .EAST 60 MS BEFORE 
ENABLING CCUNTERS. 

ZERO THE INPUTS CN FIRST PASS 


ZERO THE DISPLAY REGISTERS 


ZERO THE CUT COUNTERS 




RESET RCSPtAGS FOR PASS2 


END PASSl 


21.2446 3 4705 1 NEEDLERp CAF BITS 

21.2447 0 0006 1 EXTEND 

21.2450 05 012 1 WOR CHAN12 

21.2451 4 6211 1 CS SIX 


ENABLE IMI ERROR COUNTERS 


RESET RCSFIAGS TO DISPIAY ATTITUDE 
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I 



L JCS-CSM DIGITAL AUTOPILOT 


•370 

SEP 

26 

LAST 

982 

2L.24S2 

•371 

REP 

27 

LAST 

983 

21,2453 

0372 

REP 193 

LAST 

982 

21,2454 

•3T3 

HEP 

39 

LAST 

932 

21,2455 

Q374 





21,2458 

0375 

HEP 

36 

LAST 

932 

21,2457 

03tS 





21,2460 

03T7 

■BP 

8 

LAST 

980 

21,2461 

0378 

HEP 

41 

LAST 

978 

21,2462 

0379 

REP 

12 

LAST 

979 

21,2463 

0380 

REP 

3 

LAST 

976 

21,2464 

0381 





21,2465 

0382 

REP 

13 

LAST 

983 

21,2486 

0383 

REP 

14 

LAST 

982 

21 , 2487 

0384 

REP 

121 

LAST 

969 

21,2470 

0385 

RBF 223 

LAST 

978 

21,2471 

0388 

REP 

1 



21,2472 

0387 





21,2473 

0388 

Iff 

2 

LAST 

983 

21,2474 

0389 

REP 

122 

LAST 

983 

21,2475 

0390 

SEP 

6 

LAST 

977 

21,2476 

0391 





21,2477 

0392 

RBF 

224 

LAST 

983 

21,2500 

0393 

HEP 

3 

LAST 

983 

21,2501 

0394 

REP 

123 

LAST 

983 

21.2502 

0395 

HEP 

14 

LAST 

983 

21,2503 

0396 

RBF 

3 

LAST 

982 

21,2504 

0397 

REF 

124 

LAST 

983 

21,2505 

0398 

REP 

15 

LAST 

983 

21,2506 

0399 

REP 

3 

LAST 

982 

21,2507 

0400 

REP 

16 

LAST 

983 

21,2510 

0401 

REP 

4 

LAST 

983 

21,2511 

0402 

REP 

17 

LAST 

983 

21,2512 

0403 

HEP 

1 



21,2513 

0404 

SEP 

4 

LAST 

588 

21,2514 

0405 





21,2515 

0406 

SEP 

11 

LAST 

946 

21,2516 

0407 

REP 

194 

LAST 

9.83 

21,2517 

0408 

REP 

1 



21,2520 

0409 

REP 

18 

LAST 

974 

21,2521 

0410 

REP 

7 

LAST 

974 

21,2522 

0411 

HEP 

34 

LAST 

980 

21,2523 

0412 





21,2524 

0413 





21,2525 


7 1501 

0 


MASK 

RCSFLAGS 

55*501 

0 


TS 

HCSPLAGS 

0 0002 

0 


TC 

0 

3 4705 

1 

NEEDLES3 CAP 

BIT6 

0 0006 

1 


EXTEND 


02 012 

0 


RAND 

CHAN 12 

0 0006 

1 


extend 


1 2411 

0 


BzF 

NEEDLER +5 

3 4711 

1 

NEEDLES 

CAF 

TWO 

55*506 

1 

DACLOOP 

TS 

SPNDX 

4 4676 

0 


Cs 

quarter 

0 0006 

1 


BXTEND 


5 1506 

0 


INDEX 

SPNDX 

7 1476 

1 


MP 

ak 

54 001 

1 


TS 

L 

10 000 

0 


CCS 

A 

3 2526 

1 


CA 

DACLIMIT 

1 2475 

1 


TCP 

♦2 

4 2526 

0 


CS 

DACLIMIT 

6 0001 

0 


AD 

L 

55*502 

0 


TS 

T57EMP 

1 25 0 3 

1 


TCP 

♦4 

50 000 

1 


INDEX 

A 

3 2526 

1 


CAP 

DACLIMIT 

54 001 

1 


TS 

L 

51*506 

0 


INDEX 

SPNDX 

4 1503 

1 


CS 

EDRIVEX 

6 0001 

0 


AD 

L 

51*506 

0 


INDEX 

SPNDX 

26 050 

0 


ADS 

CDuxOO 

51*506 

0 


INDEX 

SPNDX 

23*503 

0 


L*CH 

01RIVEX 

11*506 

1 


CCS 

SPNDX 

1 2463 

0 


TCP 

DACLOOP 

3 7707 

0 


CAF 

13,14,15 

0 0006 

1 


EXTEND 


05 014 

1 


WOR 

CHAN14 

0 0002 

0 


TC 

Q 

3 2524 

0 

RE IN IT 

CAP 

DELAY200 

54 030 

0 


TS 

TIMES 

55*465 

0 


TS 

TS PHASE 

1 5222 

1 


TCP 

RESU« 

37754 

0 

DELAYZOO DEC 

16364 

77177 

0 


DEC 

-384 


USBR.S PAGE NO. 11 06 S3 

ERRORS WAIT ATLEAST 4 MS FOR 
RELAY CLOSURE 

CHECK TO ffiB IF IMU ERROR COUNTER 
IS ENABLED 

IP NOT RECYCLE NEEDLES 


omo Ct*C 

on overflow limit output to +-3B4 

current vaujb of dac 


SET DAC ACTIVITY BITS 

TILT logic 

REINITIALIZE DAP IN 200MS 

200MS 


I 


r 
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0414 

0415 


21.2526 

21.2527 


37200 1 
00600 1 


daclimit Dec 

DEC 


16000 

384 
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L RCS-CSM DIGITAL AUTOPILOT USBR-S PAGE NO. 13 Ee S3 

P0416 INITIALIZATION program for rcs-Csm AUTOPILOT 

R041T THE FOLLOWING QUANTITIES WILL BB ZEROED AND SHOULD APPEAR IN CCNSECurIVE LOCATIONS IN MEMORY AFTER WBODY 

R0419 WBODY Ul> DPT TAU2 

R0420 WBODYl <+l» DFT1 BIAS 

R0421 WBCDY2 Ll) DPT2 BIASl 

R0422 ADOT C»l) DRHO Ul> BIAS2 

R0423 ADOTl (*1) DfttlOl C+l) ERRORX 

R0424 ADOT2 <+l> DRT02 Ul> ERRORY 

R0425 M3RROKX Ul> ATTSEC ERRORZ 

R0426 MERRORY ( »1> TAU 

R042T MERROHZ (+l) TAU1 


0420 

REF 

103 

LAST 

973 

21,2530 

3 4712 

1 

FRESHDAP CAF 

CNE 

RESET HCLDFLAG TO STOP AUTOMATIC 

0429 

REF 

10 

LAST 

978 

21,2531 

55*332 

0 


TS 

HCLDFLAG 

STEERING AND PREPARE TO PICK UP AN 

A0430 











ATTIHX* HOLD REFERENCE 

0431 

REP 

36 

LAST 

905 

.21,2532 

0 4833 

0 

REDAP 

TC 

IBNKCALL 

DECODE DAPDATRl , DAPOATR2 FOR DEADBANDS 

0432 

REP 

2 

LAST 

247 

21,2533 

40146 

0 


CADR 

S41.2 

RATES, QUADFAILS, QUAD MANAGEMENT 

0433 

REF 

37 

LAST 

985 

21,2534 

0 4633 

0 


TC 

IBNKCALL 

DECODE I XX, IAvG AND CONVERT 

0434 

REP 

2 

LAST 

248 

21,2535 

40277 

1 


CADR 

S40.14 

TO AUTOPILOT GAINS 

0436 

REF 

1 



21,2536 

3 2607 

1 


CAF 

NO.ISVAR 

NO. LOCATIONS TO BB ZEROED MINUS ONE 

0437 

REF 

18 

LAST 

983 

21,2537 

55«506 

1 

zerois 

TS 

SPNPx 

ZERO AIL NECESSARY ERASABLE REGISTERS 

0438 

REF 

175 

LAST 

982 

21,2540 

3 4714 

1 


CAF 

ZERO 


0439 

REF 

19 

LAST 

985 

21,2541 

51*506 

0 


INDEX 

SPNDX 


0440 

REF 

10 

LAST 

585 

21,2542 

55*525 

0 


TS 

WBCDY 


0441 

REF 

20 

LAST 

985 

21,2543 

11«506 

1 


CCS 

SPNDX 


0442 

REF 

1 



21,2544 

1 2537 

0 


TCP 

ZEROIS 


0443 

REP 

4 

LAST 

974 

21,2545 

0 2616 

1 


ICR 

ZEROJET 


0444 

REF 

176 

LAST 

985 

21,2546 

4 4714 

0 


CS 

zero 


5445 

REF 

2 

LAST 

107 

21 , 2547 

55«633 

1 


TS 

CHANTHMP 

INITIALIZE MINMJM IMPULSE! CONTROL 


TS CH31TE4P INITIALIZE RHC POSITION MEMORY FOR 

MANUAL RATE MODES 

CAF =.24 

TS SLOPE INITIALIZE SWITCHING LOGIC SLOPE 

CAF FOUR 

TS T5TIME PHASE 0 RESETS FOR PHASE 2 INTERRUPT IN 

BOMS. PHASE 2 RESETS FOR PHASE 1 HUPT 
IN <80MS - T5TI>E(40MS>> . THEREFORE 
PHASE 1 (RATEFILTER) BEGINS CYCLING 100 
MS FROM NOW AND EVERY 100MS THEREAFTER 

0451 REF 5 LAST 784 21,2555 3 4717 1 CAJ 

0452 REP 4 LAST 977 21,2556 55*617 1 TS 

A0453 


ELEVEN 

ATIKAIFN RESET TO PICK UP KALMAN FILTER GAINS 

TO INITIALIZE THE S/C ANGULAR RATES 


04451 

REF 

2 

LAST 

.107 

21,2550 

55*632 

0 

404452 








0440 

REP 

1 



21,2551 

3 2610 

1 

0447 

REP 

2 

LAST 

108 

21,2552 

55*654 

0 

0448 

REP 

11 

LAST 

906 

21,2553 

3 4710 

0 

0449 

REF 

3 

LAST 

974 

21 , 2554 

55*634 

0 


*0450 
AO 4501 
A04502 
A04503 


L 
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0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0488 
0487 

A0488 

0489 

0490 

0491 

0492 

0492 

0493 

0494 
A0495 
A0496 

0497 

A049B 

A0499 

0500 

0501 
A0502 
A0503 

R0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 
0511 
053001 
053002 
053003 


RBP 

21 

LAST 

9T6 

21,2557 

3 0032 0 


CA 

CDUX 

REP 

4 

LAST 

976 

21,2560 

55*635 1 


TS 

mo 

REP 

12 

LAST 

976 

21,2561 

3 0033 1 


CA 

CDUY 

RBP 

4 

last 

976 

21,2582 

55«838 1 


TS 

IWOi 

REP 

15 

LAST 

976 

21,2563 

3 0034 0 


CA 

CDUZ 

REP 

4 

LAST 

976 

21,2584 

55*837 0 


TS 

mc>2 

REP 

ITT 

LAST 

985 

21,2565 

3 4714 1 


CAP 

ZERO 

REP 

8 

LAST 

983 

21,2566 

55*485 0 


TS 

T5 PHASE 

RBP 

2T 

LAST 

975 

21,2567 

4 1321 1 


CS 

IM0DES33 

REP 

40 

LAST 

983 

21,2570 

7 4705 0 


MASK 

BITS 

REF 

225 

LAST 

983 

21,2571 

10 000 0 


CCS 

A 

RBP 

1 



21,2572 

1 2576 0 


TCP 

IMJACK 

REP 

5 

LAST 

90S 

21,2573 

55*617 1 


TS 

ATIKALM7 

REP 

1 



21,2574 

3 2612 0 


CAP 

rcsinitb 

REP 

1 



21,2575 

1 2603 1 


TCP 

RCSSWIT 

REP 

6 

LAST 

977 

21,2576 

3 7671 0 

IMJACK 

CAP 

PRIO 34 

REP 

29 

LAST 

977 

21,2577 

0 5027 1 


TC 

NOVAC 

RBP 

21 

LAST 

979 

E6.1510 



ERANK= 

kmpac 

REP 

2 

LAST 

977 

21,2600 

03444 0 


2CADR 

AMBGUPDT 





21,2601 

44066 1 




REP 

1 



21,2602 

3 2811 0 


CAP 

RCSINIT 

REP 

28 

LAST 

983 

21,2603 

55*501 0 

RCSSWIT 

TS 

RCSFLAGS 

REP 

1 



21,2604 

3 26 1 3 1 


CAP 

TSWAITBO 

REF 

19 

LAST 

983 

21,2605 

54 030 0 


TS 

TIM35 

REP 

35 

LAST 

983 

21,2606 

0 5222 0 


TC 

RESUME 


CONSTANTS USED IN INITIALIZATION PROGRAM 






21,2607 

00044 

1 

NO.T5VAR dec 

36 





21,2610 

07534 

1 

= .24 

DEC 

-24 





21,2611 

00004 

0 

RCSINIT 

OCT 

00004 





21,2612 

20004 

1 

RCSINITB 

OCT 

20004 





21,2613 

3777 2 

1 

T5WAITB0 DEC 

16378 

RBP 

22 

LAST 

986 

Efi , 1510 




ebank= 

kmpac 

REP 

1 



21,2614 

03644 

1 

TsADDR 

ZCADR 

tb start 

REP 

1 



21,2615 

36066 

1 




REP 

6 

LAST 

985 

21,2616 

3 4717 

1 

ZEROJET 

CAF 

ELEVEN 

REP 

21 

LAST 

985 

21,2617 

55*506 

1 


TS 

SPNQX 

REP 

178 

LAST 

986 

21,2620 

3 4714 

1 


CAF 

ZERO 


USER-S PACE NO. 14 Ee S3 


RESET AUTOPILOT TO BEGIN EXECUTING 
PHASE 2 OP PROGRAM 

OIEQc IMU STATUS 

IP BITB = 0 IWJ IN FINE ALIGN 

IP BITB = 1 IMU NOT READY 

CANNOT USE IMJ 
PROVIDE FREE CCNTROL CNLY 
DCNT START UP RATE FILTER 
SIGNAL NO RATE FILTER 

START MATRIX INITIALIZATION 
BYPASS IP IMJ NOT IN FINE ALIGN 


clear bitia -assume we have a ckxd imu 
clear biti -initialize tb program 

SET BIT3 -INITIALIZE NEEDl^S 
CLEAR BIT4 -RESET FOR FDAIDSPl 
NEXT T5RUPT 80 MS FRCM NOW TO ALLOW IMU 
error counter to zero. 

(MINIMUM DELAY = 15 MS) 

SINCE ATIKAIMM IS +11, PROGRAM WIIL THEN 
PICK UP THE KALMAN FILTER GAINS. RATE 
FILTER WILL BEGIN OPERATING ZOCMS FHCM 
NOW 


= SLOPE OF 0.6/SEC 


= 6 Cs 


ZERO BIAST2, BLAST1, BLAST, YWORD2, 
VWORDl, PWORD2, PWORD], RWORD2, 

AND RWORDl. 
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053004 REF 

22 

LAST 

988 

21,2821 

053005 

RSP 

2 

LAST 

100 

21,2822 

053008 

REP 

23 

LAST 

987 

21,2623 

05300T 

REF 

5 

IAST 

985 

21,2624 

05300B 

REF 

12 

LAST 

985 

21,2825 

053009 

REF 

2 

LAST 

LOO 

21,2626 

05301 

REF 

t 

LAST 

988 

21,2827 

0531 

REF 

2 

LAST 

100 

21,2830 

0532 

REF 

68 

LAST 

958 

21,2631 

0533 

REP 

29 

LAST 

988 

21,2832 

0534 

REF 

30 

LAST 

987 

21,2633 

0535 





21,2834 

0538 

REF 

1 



21,2635 

0537 

BEF 

3 

LAST 

957 

21,2636 

0538 

REF 

1 



21,2837 

0539 

REF 

3 

LAST 

957 

21,2640 

0540 

REF 

41 

LAST 

973 

21,2641 

0541 





21,2642 

0542 

REF 

9 

LAST 

958 

21,2843 

0543 

REF 

195 

LAST 

983 

21,2844 

0544 

REP 

6 

LAST 

980 

21,2645 

0545 

REF 

1 



21,2648 

0548 





21,2847 

0547 





21,2850 

0548 

REF 

2 

LAST 

974 

21,2651 

0549 

REP 

20 

LAST 

986 

21,2652 

0550 

REF 

4 

LAST 

985 

21,2653 

05501 

REF 

31 

LAST 

987 

21,2654 

05502 

REP 

42 

LAST 

987 

21,2655 

05503 





21,2856 

05504 

REF 

1 



21,2657 

05505 

REF 

104 

LAST 

985 

21,2860 

05506 

REF 

T 

LAST 

987 

21,2661 


51*506 

0 

INDEX 

SPNDX 

55*451 

1 

TS 

B»OBDl 

11*506 

1 

CCS 

SPNDX 

1 2617 

1 

TCP 

S3ROJET <-1 

3 4710 

0 

CAP 

FOUR 

55*462 

1 

TS 

BLASTl +1 

3 4717 

1 

CAP 

ELEVEN 

55*464 

1 

TS 

BLAST2 +1 

4 4712 

0 

CS 

BITl 

7 1501 

0 

MASK 

BCSPLAGS 

55*501 

0 

TS 

BCSPLAGS 

0 0006 

1 

EXTEND 


3 2615 

1 

DCA 

T&ADDR 

53*311 

1 

PXCH 

•re LOC 

3 3034 

0 

CAP 

=+14MS 

54 031 

1 

TS 

TISEe 

3 4674 

0 

CAP 

BIT15 

0 0006 

1 

EXT©® 


05 013 

0 

. WOR 

CHAN] 3 

0 0002 

0 

TC 

O 

11*617 

1 

ISPHASEp CCS 

atikaiw 

1 3132 

0 

TCP 

KALUPDT 

1 2651 

0 

TCP 

*2 

1 2651 

0 

TCP 


3 2142 

1 

CA 

DELTA TT2 

56 030 

1 

XCH 

TIMES 

27*634 

0 

ADS 

TSTIM? 

3 1501 

1 

CA 

rcsfiags 

7 4674 

1 

MASK 

BIT 15 

0 0006 

1 

EXTEND 


1 2661 

0 

BzK 

NCHIAUTO 

4 4712 

0 

CS 

CHE 

55*617 

1 

NCHIAUTO TS 

atikalmn 


USER.S PACE NO. 15 Efl S3 


BESET BITl OP BCSPLAGS TO 0 


ENABLE T6RUPT TO SHUT OFF JETS IN 14 MS 


IF ( ♦) INITIALIZE BATE ESTIMATE 

CNLY IF ATIKALM* POSITIVE 

RESET FOB PHASE 3 IN 20 MS 
(JET SELECTION LOGIC ) 

TO COMPENSATE FOB DEI AYS IN TCRUPT 
IF A HIGH BATE AUTO MANEUVER IS IN 
PROGRESS (BIT 15 OP RCSFLAGS SET), SET 
atikalmn TO -1 
OTHERWISE SET ATHCAl>N TO 0. 
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P0551 MANUAL ROTATION COMMANDS 

•S52 REP j 21,2862 4 3016 1 

•553 REF 32 LAST 987 21,2663 T 1501 0 

•554 REP 33 LAST. 988 21,2664 55«501 0 


C3 OCT01T60 
MASK RCSFLAGS 
TS RCSFLAGS 


•555 

•558 REP g LAST 975 

•557 REP 125 LAST 983 

•558 REP 3 LAST 98S 

•559 

•560 REF 11 LAST 945 

•561 REP 1 

0562 

•563 REP 1 


21.2665 0 0006 1 

21.2666 00 031 0 


21,2687 54 001 1 

21,2670 3 1632 1 


21.2671 0 0008 1 

21.2672 08 001 0 


21.2673 7 3022 0 

21.2674 0 0006 1 


21,2675 6 2710 0 


EXTEND 

read cham 3i 

TS L 

CA CH31TEMP 

Extend 
RXOR LCHAN 
MASK MANROT 
EXTEND 

B2MP NOCHANCE 


•564 REP 22fl LAST 986 
0565 REP 4 LAST 988 


21.2676 22 000 1 

21.2677 55«632 0 


LXCH A 
TS QL31TEMP 


•566 REF 126 LAST 968 

•567 

•568 REP 35 LAST 952 

•569 REF 127 LAST 988 

•570 REF 34 LAST 988 


21.2700 3 0001 0 

21 . 2701 0 0008 1 

21.2702 7 4706 0 

21.2703 3 0001 0 

21.2704 27«501 0 


CA L 

extend 

MP BIT5 

CA L 

ADS RCSFLAGS 


•574 REP 35 LAST 988 

0575 REP 1 

•576 REP 36 LAST 988 


21.2705 4 1501 0 

21.2706 7 3023 1 

21.2707 27«501 0 


CS RCSFLAGS 

MASK CCT16000 
ADS RCSFLAGS 


•577 REP 5 LAST gas 

•578 REP 2 LAST 988 

•579 

0580 REF 1 


21.2710 4 1632 0 NOCKANGE CS 

21.2711 7 3022 0 MASK 

21.2712 0 0006 1 


21,2713 6 3234 1 


CS CH31T6 MP 
MASK MANROT 
Extend 

BZMP AHFNOROT 


•581 REF 11 LAST 985 21,2714 55«332 0 


•582 REP 2 LAST 539 
A0583 
*0584 
*0585 
*0586 


21,2715 0 3114 0 


TC STICKQK 




imus PAGE NO. 16 E6 S3 


RESET FORCED FIRING BITS (BITS 10 TO 5 
OP RCSFLAGS) TO ZERO 


= 0CT00077 


SAVE CONTENTS OP CHANNEL 31 IN CH31TEMP 


PUT BITS 6-1 OP A IN BITS 10-5 OP L 


SET FORCHJ FIRING BITS FOR AXES WITH 
WITH CHANCES IN COWAND . BITS 10,9 FOR 
ROLL, BITS 8,7 FOR YAW, BITS 6,5 FOR 
PITCH 


SET RATE DAMPING FLAGS (BITS 13, 12, AND 
11 OP RCSFLAGS) 




IP NO MANUAL COMMANDS, GO TO AHFNOROT 


SET HOLDFLAG 


WHEN THE RHC IS CUT OP DETENT, PMANNDx, 
YMANNDX, AND RMANNDX ARE AIX, SET, BY 
MEANS OP STICKCHK, TOO, 1, OR 2 FOR NO, 

♦ , OR - ROTATION respectively AS 
COMA MIX'D BY the HHC. 


HOWEVER, IT IS WEIJ, TO NOTE THAT AFTER 
THE RHC IS RETURNED TO DETENT, THE 
PROGRAM BRANCHES TO AHFNOROT AND AVOIDS 
STICKCHK SO PMANNDX, YMANNDX, AND 
RMANNDx ARE NOT RE SPIT TO ZERO But RATHER 
LEFT SET TO THEIR IAST OUT OF DETENT 
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USERo.3 PACE NO. 17 08 S3 

A0593 










VALUES. 

0594 

HEP 

22 

LAST 

779 

21,2716 

4 0075 

1 

cs 

FLAGKOl 

ffiT STIKFLAQ TO INPOFM STEERING 

0595 

HEP 

56 

LAST 

975 

21,2717 

7 4675 

0 

MASK 

BIT14 

PROGRAMS (P20> THAT ASTRONAUT HAS 

0596 

KBP 

23 

LAST 

989 

21,2720 

28 075 

1 

ADS 

PLAQJICl 

ASSUMED ROTATIONAL CONTROL OF SPACECRAFT 

059T 

REP 

57 

LAST 

989 

21,2721 

3 4675 

1 

CAP 

BIT14 


0598 





21,2722 

0 0006 

1 

EXTEND 



0599 

RHP 

9 

LAST 

908 

21,27 23 

02 031 

1 

RAND 

CHAN 31 


0600 





21,2724 

0 0006 

1 

EXTEND 



0601 

REP 

1 



21,2725 

8 3035 

1 

B&P 

FREEPUNC 


0602 

HEP 

37 

LAST 

988 

21,2726 

3 1501 

1 

CA 

hcsflags 

EXAMINE RCSPLAGS TO SEE IP RATE FILTER 

0603 

HEP 

58 

LAST 

989 

21,2727 

7 4675 

0 

MASK 

BITT4 

HAS BEEN INITIALIZED 

0604 

HEP 

227 

LAST 

988 

21,2730 

10 000 

0 

CCS 

A 

IP SO, PROCEED WITH MANUAL RATE COMMANDS 

0605 

REP 

2 

LAST 

975 

21,2731 

1 2520 

0 

TCP 

HEINIT 

TILT, RECYCLE TO INITIALIZE FILTER 

0606 

REP 

24 

LAST 

960 

21,2732 

4 4715 

1 

Cs 

FIVE 

IP MANUAL MANEUVER IS AT HIGH RATE, SET 

0607 

HEP 

5 

LAST 

688 

21,2733 

6 1130 

1 

AD 

RATEINPx 

ATIKALMI TO -1. 

0608 





21,2734 

0 0006 

1 

Extend 


OTHERWISE, LEAVE ATIKALVN ALONE. 

0609 





21,2735 

6 2740 

0 

BZ4P 

>3 


0610 

HEP 

105 

LAST 

987 

21,2736 

4 4712 

0 

CS 

ore 


0611 

HEP 

8 

LAST 

987 

21,2737 

55*617 

1 

TS 

atikalmn 


0614 

RHP 

42 

LAST 

983 

21,2740 

3 4711 

1 

CAP 

TWO 

AUTO-HOLD MANUAL ROTATION 

0615 

REP 

24 

LAST 

987 

21,2741 

55*506 

1 

SEIWBCDY TS 

SPNDX 


0616 





21,2742 

6 0000 

1 

DOUBLE 



0617 

HEP 

18 

LAST 

979 

21,2743 

55*507 

0 

TS 

DPNDX 


0618 

REP 

25 

LAST 

989 

21 , 2744 

51«506 

0 

INDEX 

SPNDX 

RMANNDX = 0 no ROTATION 

0619 

RHP 

3 

LAST 

539 

21,2745 

3 1658 

0 

,CA 

RMANNDX 

= 1 + ROTATION 

0620 





21 , 2746 

0 0006 

1 

EXTEND 


= Z - ROTATION 

0621 

HEP 

1 



21 , 2747 

1 2771 

0 

BzP 

NORATE 

IP NO ROTATION COMMAND CN THIS AXIS, 

A0622 










GO TO NORATE. 

0623 

HEP 

s 

LAST 

989 

21,2750 

6 1130 

1 

AD 

RATBINDX 

RATEINDX = 0 0.05 DEG/SEC 

0624 

REP 

196 

LAST 

987 

21,2751 

54 002 

1 

TS 

0 

= 2 0.2 DEG/SEC 

0625 

REP 

197 

LAST 

989 

21,275 2 

50 002 

0 

INDEX 

0 

= 4 0.5 DEG/SEC 

0626 

REP 

1 



21,2753 

3 3023 

0 

CA 

MANTARIJ? _1 

= 6 4.0 DEG/SEC 

0627 





21,2754 

0 0006 

1 

Extend 



0628 

RHP 

29 

LAST 

783 

21,2755 

7 4702 

1 

MP 

BIT9 

MJLTIPLY MANTA HI E BY z TO THE -6 

0629 

REP 

19 

LAST 

989 

21,2756 

51*507 

1 

INDEX 

DPNDX 

TO GET COMMANDED RATE. 

0630 

REP 

ii 

LAST 

985 

21,2757 

53*526 

0 

DXW 

WB0DY 

SET WHCDY TO COMMANDED RATE. 

0631 

REP 

38 

LAST 

989 

21,2760 

3 1501 

1 

CA 

hcsflags 


0632 

REP 

2 

LAST 

988 

21,2761 

7 3023 

1 

mask 

OCT16000 

IS RATE DAMPING CCMPIETH) (BITS 13.12AND 






21,2762 

0 0006 

1 

EXTEND 


11 OP RCSFUVGS all ZERO.) if so, go to 

0634 

REP 

1 



21,2763 

1 3001 

1 

BZP 

MSRUPDAT 

NCRUPOAT TO UPDATE CUMUIATIVE ATTITUDE 

A0635 










ERROR. 



i 


1 
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0036 

REP 

179 

LAST 

986 

21 ,2764 

3 4714 1 

ZERCER CA 

ZERO 

0637 





21,2785 

22 007 0 

ZL 


0638 

REP 

20 

LAST 

989 

21,2766 

51*507 1 

INDEX 

DPNDX 

0639 

REP 

3 

LAST 

977 

21,2767 

53*542 1 

DXCH 

merrcxoc 

0640 

REP 

1 



21,2770 

1 3007 1 

TCP 

SPNDXCKC 

0641 





21,2771 

22 007 0 

NORATE ZL 


0642 

REP 

21 

LAST 

990 

21,2772 

51*507 1 

INDEX 

DPNDX 

0643 

REP 

12 

LAST 

989 

21,2773 

53*528 0 

DXCH 

WBODY 

0644 

REP 

39 

LAST 

989 

21,2774 

3 1501 1 

CA 

RCSFLAGS 

0645 

REP 

3 

LAST 

989 

21,2775 

7 3023 1 

MASK 

OCT16000 

0646 





21,2776 

0 0006 1 

EXTBJD 

0647 

REP 

2 

LAST 

990 

21,2777 

1 3007 1 

BzF 

SPNPxOK 

0648 

REP 

1 



21,3000 

1 2764 1 

TCF 

ZERCER 

0649 

REP 

198 

LAST 

989 

21,3001 

50 002 0 

MEHJPMT index 

0 

0650 

REP 

2 

LAST 

989 

21,3002 

4 3023 1 

cs 

MANTABLE -1 

0651 





21,3003 

0 0006 1 

extend 

0652 

REP 

43 

LAST 

704 

21,3004 

7 4704 1 

mp 

BITT 

0653 

REP 

22 

LAST 

990 

21,3005 

51«507 1 

INDEX 

DPNDX 

0654 

REP 

4 

LAST 

990 

21,3006 

21«542 1 

MS 

!*RRQRX 

0655 

REF 

23 

LAST 

990 

21,3007 

51*507 1 

SPNDXCHK INDEX 

DPNDX 

0356 

REP 

5 

LAST 

990 

21,3010 

3 1541 0 

CA 

WRRORX 

0657 

REP 

26 

LAST 

989 

21,3011 

51*506 0 

INDEX 

SPNDX 

0658 

REP 

6 

LAST 

973 

21,3012 

55*567 0 

TS 

errorx 

0659 

REF 

27 

LAST 

990 

21,3013 

11*506 1 

CCS 

SPNDX 

0660 

REF 

1 



21,3014 

1 2741 0 

TCF 

SETWBCDY 

0661 

REP 

1 



21,3015 

1 3425 0 

TCP 

jets 

0662 





21,3016 

01760 1 

OCT01760 OCT 

01760 

0663 





21,3017 

01400 1 

OGT01400 OCT 

01400 

0664 





21,3020 

00060 1 

GGTO0060 OCT 

00060 

0665 

A0666 





21,3021 

00300 1 

OCT00300 OCT 

00300 

A0667 









0668 





21,3022 

00077 1 

MANROT OCT 

77 

0669 





21,3023 

16000 0 

OCT16000 OCT 

16000 

0670 





21,3024 

00165 0 

MANTABLE DEC 

.0071111 

0671 





21,3025 

77612 1 

DEC 

-.0071111 

0672 





21,3026 

00722 0 

DEC 

.028444 

0673 





21,3027 

77055 1 

DEC 

-.028444 

0674 





21,3030 

02215 0 

DEC 

.071111 

0675 





21,3031 

75562 1 

DEC 

-.071111 

0676 





21,3032 

22151 1 

DEC 

-568889 

0677 





21,3033 

55626 0 

DEC 

--56SB89 

0678 





21,3034 

00027 1 

=+14MS DEC 

23 

0679 

REF 

4 

LAST 

909 

21,3035 

51*656 0 

freefunc INDEX 

RMANNDX 


20*35 OCT. 28,1988 DAPCS4 .195 PACE 990 
U®R»S PAGE NO. 18 Efl S3 

ZERCER zeros t«RRORS 


ZERO WBODY FOR THIS AXIS 


IS RATE DAMPING CCMPLETED 

yes, keep current merrokx go to spndxghk 

NO, GO TO ZERCER 

«RR0RX=MEHR0RX4FEASURED CHANGE IN ANGLE 
-COMANDED CHANGE IN ANGLE 
THE ADOITICN OF MEASURED CHANCE IN ANGLE 
HAS ALREADY BEEN DCNE IN THE RATE FILTER 
COMANDED CHANGE IN ANGLE = WBODY TIMES 
. 1SEC = MANTABLE ENTRY TIMES 2 TO THE -8 


ERRCSX = HIGH ORDER WORD OF MERRORX 


FORCED FIRING BITS MASK 

ROLL FORCED FIRING MASK ORDER OF 

PITCH FORCED FIRING MASK DEFINITION 

YAW FORCED FIRING MASK MUST BE 

PRESERVED 
for INDEXING 

rate DAMPING FLAGS MASK 


ACCELERATION 
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USERaS PACE NO. 19 


Be S3 


0000 

REF 

1 



21,3036 

3 3047 

1 

0001 

REP 

2 

LAST 

107 

21,3037 

55*581 

0 

0002 

REF 

3 

LAST 

540 

21 , 3040 

51*657 

1 

0003 

REP 

2 

LAST 

991 

21,3041 

3 3047 

1 

0604 

REF 

2 

LAST 

107 

21,3042 

55*562 

0 

0605 

REP 

3 

LAST 

540 

21,3043 

51*660 

0 

0600 

REP 

3 

LAST 

991 

21,3044 

3 3047 

1 

06 0T 

REF 

2 

LAST 

107 

21,3045 

55*563 

1 

0000 

REP 

1 



21,3046 

1 3053 

0 

0009 





21,3047 

00000 

1 

0690 





21,3050 

00740 

1 

0691 





21,3051 

77037 

0 

0092 





21,3052 

00000 

1 

0693 

REP 

180 

LAST 

990 

21,3053 

3 4714 

1 

0694 

REP 

7 

LAST 

990 

21,3054 

55*567 

0 

0695 

REP 

4 

LAST 

973 

21,3055 

55«570 

0 

0696 

REP 

3 

LAST 

973 

21,3056 

55*571 

1 

0697 

REP 

1 



21,3057 

1 3743 

0 


PREETAU 


TBPROGM 


CA 

PHSETAU 

COWANDS 


TS 

TAU 



INDEX 

PMANNDX 



CA 

FREBTAU 

FREETAU 

0 SEC 

TS 

TAU1 

♦1 

+0.10 SEC 

INDEX 

YMANNDX 

♦2 

-0.10 SEC 

CA 

PRH3TAU 

(♦3> 

0 SEC 

TS 

TAU2 



TCP 

TBPROGM 



DEC 

0 



DEC 

480 



DEC 

-480 



DEC 

0 



CAP 

ZERO 

FOR MANUAL ROTATIONS 

TS 

ERRQRX 



TS 

ERRORY 



TS 

ERRORZ 



TCP 

tbprog 





1 


L 
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06975 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

07105 

0711 
0T12 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 
A0739 

0740 

0741 


REF 

7 

LAST 

983 

REF 

28 

LAST 

904 

REF 

4 

LAST 

991 

REF 

8 

LAST 

992 

REF 

4 

LAST 

983 

REF 

9 

LAST 

992 

REF 

29 

LAST 

992 

REP 

4 

LAST 

991 

REF 

10 

LAST 

992 

REP 

5 

LAST 

992 

REF 

5 

LAST 

990 

REF 

199 

LAST 

990 

REF 

9 

LAST 

989 


REP 1 

HEP 5 CAST 987 


21,3060 

06804 0 


DEC 

.2112 

21,3061 

32703 1 


DEC 

.8400 

21,3062 

06604 0 


DEC 

-2112 

21,3083 

02031 1 

(MINI 

Dec 

.0640 

21,3064 

12132 1 


DEC 

.3180 

21,3065 

13030 0 


Dec 

.345 2 

21,3066 

14047 1 


Dec 

.3774 

21,3067 

15241 1 


Dec 

.4161 

21,3070 

16650 0 


Dec 

.4634 

21,3071 

20555 0 


Dec 

.5223 

21,3072 

23065 0 


Dec 

.5970 

21,3073 

26137 0 


Dec 

.6933 

21,3074 

32053 0 


Dec 

.8151 

21,3075 

35712 0 


Dec 

.9342 

21,3076 

00435 0 


Dec 

.0174 

21,3077 

13412 1 


Dec 

.3600 

21,3100 

00435 0 


Dec 

.0174 

21,3101 

00032 0 

(MIN2 

Dec 

.ooie 

21,3102 

0 1 35 0 0 


Dec 

.0454 

21,3103 

01575 1 


Dec 

.0545 

21,3104 

02103 1 


Dec 

.0666 

21,3105 

02523 1 


Dec 

.0832 

21,3106 

03327 1 


Dec 

.1069 

21,3107 

04432 0 


Dec 

.1422 

21,3110 

06264 1 


Dec 

-1985 

21,3111 

11351 0 


Dec 

.2955 

21,3112 

17324 1 


oec 

.4817 

21,3113 

33622 1 


Dec 

.8683 

21,3114 

55*502 0 

STICkCHc ts 

T5TEMP 

21,3115 

7 6214 1 


MAac 

THREE 

21,3116 

55*657 0 


TS 

PMANNDX 

21,3117 

3 1502 1 


CA 

TS'ffMP 

21,3120 

0 0006 1 


EXTEND 


21,3121 

7 4676 0 


MP 

QUARTER 

21,3122 

55*502 0 


TS 

15 TEMP 

21,3123 

7 6214 1 


MASK 

THREE 

21,3124 

55*660 1 


TS 

YMANNEX 

21,3125 

3 1502 1 


CA 

TSTfMP 

21,3126 

0 0006 1 


EXTEND 


21,3127 

7 4676 0 


MP 

quarter 

21,3130 

55*656 1 


TS 

RMANNDX 

21,3131 

0 0002 0 


1C 

0 

21,3132 

55*617 1 

kalupdt 

TS 

atikalmv 


21,3133 

3 2141 1 

CA 

DELTA TT 

21,3134 

6 1634 1 

AO 

TSTira 


USER*S PAGE NO. 20 Efi S3 

FILTER GAIN FOR TRANSLATION, LEM CN 
FILTER GAIN FOR TRANSLATION 2(ZETA)V9N DT 
FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS 
KALMAN FILTER GAINS FOR INITIALIZATION 
OP ATTITUDE RATES 


FILTER GAIN FOR TRANSLATION, LEM CN 
FILTER GAIN FOR TRANSLATION (WNHWN)DT 
FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS 
SCALED 10 


INDUCES FOR MANUAL ROTATION 


MAN RATE 0 
+ 1 
*2 
(+3) 


0 RATE (DP) 
♦RATE (DP) 
-RATE (DP) 

0 RATE (DP) 



INITIALIZATION op attitude rates using 
KALMAN FILTER TAKES 1.1 SEC 


= 1SEC - SOMS 
♦ DELAYS 
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0742 

REP 

21 

LAST 

98T 

21,3135 

54 030 

0 


TS 

TIf®5 

0743 





21,3136 

1 3141 

1 


TCP 

♦3 

0744 

REP 

3 

LAST 

987 

21,3137 

3 2142 

1 


CAP 

DELTATT 2 

0745 

REF 

22 

LAST 

993 

21,3140 

54 030 

0 


TS 

TD«5 

0752 

REP 

101 

LAST 

991 

21,3141 

4 4714 

0 

KRfiSLt«2 CS 

ZERO 

0753 

REF 

9 

LAST 

986 

21,3142 

55*465 

0 


TS 

■RFHA® 

0754 

REP 

36 

LAST 

986 

21,3143 

1 5222 

1 


TCP 

RESUME 

0755 

REP 

34 

LAST 

982 

21,3144 

4 4707 

1 

FDAIDSP2 CS 

BIT4 

0756 

REP 

40 

LAST 

990 

21,3145 

7 1501 

0 


mask 

hcsflags 

0757 

REP 

41 

LAST 

993 

21,3146 

55*501 

0 


TS 

RCSPLAGS 

0758 

REP 

11 

LAST 

784 

21,3147 

4 0074 

0 


CS 

FLAOIFDO 

0759 

REP 

30 

LAST 

989 

21,3150 

7 4702 

1 


MASK 

BIT9 

0760 





21,3151 

0 0006 

1 


EXTEND 


0761 

REF 

1 



21,3152 

1 3161 

0 


BZP 

FDAITOTL 

0762 





21,3153 

0 0006 

1 


EXTEND 


0763 

REP 

8 

LAST 

991 

21,3154 

4 1570 

0 


DCS 

ERRORX 

0764 

REF 

15 

LAST 

983 

21,3155 

53*477 

0 


DXCH 

ak 

0765 

REP 

4 

LAST 

991 

21,3156 

4 1571 

1 


CS 

bhrorz 

0766 

REF 

5 

LAST 

982 

21,3157 

55*500 

1 


TS 

AK 2 

0767 

REP 

37 

LAST 

993 

21,3160 

1 5222 

1 


TCP 

RE SUMS 

0768 

REP 

14 

LAST 

906 

21,3161 

3 0105 

0 

FDAITOTL CA 

FLAQWRD 9 

07681 

REP 

41 

LAST 

986 

21,3162 

7 4705 

0 


MASK 

BITB 

07682 





21,3163 

0 0006 

1 


EXTEND 


07683 

-REP 

1 



21,3184 

1 3227 

1 


BzP 

WRTN17 

A07684 

07605 





21,3165 

0 0006 

1 

WRIN22 

Extend 


0769 

REP 

2 

LAST 

412 

21,3166 

3 1157 

0 


DCA 

GlHETA 

0770 

REP 

2 

LAST 

106 

21,3167 

53*514 

1 


DXCH 

WIEMP 

0771 

REP 

9 

LAST 

586 

21,3170 

3 1155 

1 


CA 

CPHI 

0772 





21,3171 

0 0006 

1 

OBWKS 

extend 


• 

0773 

REF 

22 

LAST 

986 

21,3172 

20 032 

1 


MSU 

cnux 

0774 

REF 

16 

LAST 

993 

21,3173 

55*476 

1 


TS 

ak 

0775 

REP 

3 

LAST 

993 

21,3174 

3 1513 

1 


CA 

WTEMP 

0776 





21,3175 

0 0006 

1 


EXTEND 


0777 

REP 

13 

LAST 

986 

21,3176 

20 033 

0 


MSU 

CDUY 

0778 

REF 

11 

LAST 

992 

21,3177 

55*502 

0 


TS 

T5TRMP 

0779 





21,3200 

0 0006 

1 


EXTEND 


0780 

REP 

3 

LAST 

976 

21,3201 

7 1640 

0 


MP • 

AMGBi 

0781 

REP 

17 

LAST 

993 

21,3202 

27*476 

1 


ADS 

AK 

0702 

REP 

12 

LAST 

993 

21,3203 

3 1502 

1 


CA 

15 TEMP 

0783 





21,3204 

0 0006 

1 


EXTEND 


. 0784 

REP 

3 

LAST 

976 

21,3205 

7 1641 

1 


MP 

AMG 84 
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SAFETY PLAY TO ASSURE 

A TSHJPT 

RESET FOR PHASE 1 

RE SUMS INTERRUPTED PROGRAM 

RESET FOR FDAIDSPl 


CN - DISPLAY CNE OP THE TOTAL ATTITLDE 
ERRORS 


OFF -DISPLAY AUTOPILOT FOLLCWING ERROR 


END PHASE l 


IS N220RN17 (BITS OF FLAGWRDg) = 0 
IP SO, GO TO WRTNlT 

OTHERWISE, CONTINUE CN TO WRTN22 AND 
GET SET TO CCMPUffi TOTAL ATTITUDE 
error WRT N22 by picking UP THE THREE 
COMPONENTS OF N22 

COMPUTE TOTAL ATTITUDE ERROR FOR 
DISPLAY CN FDA I ERROR NEEDLES 
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REP 16 LAST 986 
REP 14 LAST 994 


REP 3 LAST 976 
REP 6 LAST 994 
REP 15 LAST 994 


REP 3 LAST 976 
REP 7 LAST 994 
REP 38 LAST 993 


0802 

0803 REP 9 LAST 587 

0804 REP 5 LAST 994 

0805 REP 10 LAST 994 

0806 REP 1 


I 


U3BIUS PAGE NO. 22 Efl S3 


REP 5 LAST 982 
REP 13 LAST 993 


REP 3 LAST 976 

REP 6 LAST 993 

REP 4 LAST 993 


21.3206 

21.3207 

21.3210 

21.3211 

21.3212 

21.3213 

21.3214 

21.3215 

21.3216 

21.3217 

21.3220 

21.3221 

21.3222 

21.3223 

21.3224 

21.3225 

21.3226 


55«47T 0 
3 1502 1 
0 0006 1 
7 1643 0 
55«500 1 
3 1514 0 
0 0006 1 
20 034 1 
55«502 0 
0 0006 1 
7 1642 1 
27«477 0 
3 1502 1 
0 0006 1 
7 1644 1 
27«500 1 
1 5222 1 


TS 

CA 

EXTEND 

MP 

TS 

CA 

EXTEND 

MSU 

TS 

extend 

mp 

ADS 

CA 

EXTEND 

MP 

ADS 

HOP 


aki 

T5TB4P 


AMGBr 

AK2 

WTB4P ♦! 


C&JZ 

T5TEMP 


AMGB5 

aki 

TSTEMP 


AMSla 

AK2 

RESU5E 


END PHASBi OP RCS DAP 


21,3227 0 0008 1 WRTNlT 

21.3230 3 1335 0 

21.3231 53«514 1 

21.3232 3 1333 0 

21.3233 1 31T1 1 


EXTEND 

DCA CPHIX +1 

PXCH (HEMP 
CA CpHIx 

TCP GBTAKS 


GKT SET TO COMPUTE TOTAL ASTRONAUT 
ATTITUDE ERROR vfRT N17 BY PICKING UP 
THE THREE COMPONENTS OP Nl7 







I 
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0001 





21,3234 



BANK 21 

0002 

REF 

3 

LAST 

973 

21,2000 



SEMLOC DAPS3 

0003 





21,3234 



bank 

0004 

REP 

1 






COUNT 21 /DA PAM 

0005 

REF 

23 

LAST 

986 

Be, 1510 



E&ANK= kmpac 

0006 





21,3234 

0 0006 

1 

ahfnorot extend 

0007 

REP 

10 

LAST 

989 

21,3235 

00 031 

0 

read CHAN 31 

0008 

REP 

59 

LAST 

989 

21,3236 

7 4675 

0 

MASK BIT14 

0009 





21,3237 

0 0006 

1 

EXTEND 

0010 

REP 

1 



21,3240 

6 3256 

0 

BZMP FREECCNT 

0011 

REP 

42 

LAST 

993 

21,3241 

3 1501 

1 

CA RCSFLAGS 

0012 

REF 

60 

LAST 

996 

21,3242 

7 4675 

0 

MASK BIT14 

0013 

REP 

228 

LAST 

989 

21,3243 

10 000 

0 

CCS A 

0014 

REP 

3 

LAST 

989 

21,3244 

1 2520 

0 

TCP REINIT 

*0015 









0018 





21,3245 

0 0006 

1 

EXTEND 

0017 

REF 

11 

LAST 

996 

21 , 3246 

00 031 

0 

READ CHAN31 

0018 

REF 

39 

LAST 

941 

21,3247 

7 4676 

0 

MAS< BIT13 

0019 





21,3250 

0 0006 

1 

•extend 

0020 

REP 

1 



21,3251 

6 3356 

1 

BzMP HCLDFUNC 

0021 

REP 

12 

LAST 

988 

21,3252 

3 1332 

1 

AUTOCCNT CA HCtCFTAG 

0022 





21,3253 

0 0006 

1 

extend 

0023 

REP 

1 



21,3254 

6 3306 

1 

BzMP ATIHCXX) 

0024 

REP 

1 



21,3255 

1 3362 

1 

TCP GRABANG 


IP RATE FILTER HAS BEEN INITIALIZED 


IP SO, PROCEED WITH ATTITUDE CONTROL 
IP NOT, RECYCLE TO INITIALIZE FILTER 
automatic control yet 


IP HOLDFLAG IS +, GO TO GRABANG. 
OTHERWISE, GO TO ATIHOLD. 


MINIMUM IMPULSE CONTROL 


3 LAST 

3 IAST 

4 LAST 
3 LAST 
6 LAST 


3 LAST 
5 LAST 

2 LAST 

3 LAST 
5 LAST 
3 (AST 


989 

21,3256 

3 4712 

1 

FREECCNT CAP 

CNE 



996 

21.32ST 

55*332 

0 

TS 

HOLDFIAG 

RESET HOLDFIAG 








inhibit automatic steering 


21,3260 

0 0006 

1 

EXTEND 




132 

21,3261 

00 032 

0 

READ 

CHAN32 



988 

21,3262 

54 001 

1 

TS 

L 




21,3263 

4 0000 

0 

COM 




988 

21,3264 

7 3022 

0 

MASK 

MANROT 



985 

21,3265 

7 1633 

1 

MASK 

CHANTEMP 



996 

21,3266 

23*633 

0 

LXCH 

chantemp 



988 

21,3267 

0 3114 

0 

1C 

STICKCHK 



992 

21 , 3270 

51*656 

0 

INDEX 

RMANNDX 




21,3271 

3 3302 

0 

CA 

MINTAlJ 

MINTAlJ +0 


991 

21,3272 

55*561 

0 

TS 

WU 

♦1 

+ 14, MS MINIMUM 

992 

21,3273 

51*657 

1 

INDEX 

PMANNDx 

>2 

-14MS TIME 

996 

21,3274 

3 3302 

0 

CA 

MINTAU 

♦3 

+0 

991 

21,3275 

55*562 

0 

TS 

TAUl 

992 

21,3276 

51*660 

0 

INDEX 

YMANNDx 



996 

21,3277 

3 3302 

0 

CA 

MINTAU 
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0040 

0047 

0048 

0049 

0050 

0051 


LAST 

LAST 


991 

991 


21.3300 

21.3301 

21.3302 

21.3303 

21.3304 

21.3305 


55«563 
1 3053 
00000 
00027 
77750 
00000 


MINTAU 


T3 

TCP 

DEC 

DEC 

DEC 

DEC 


WU2 
76 PROEM 
0 

23 

-23 

0 
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= 14MS 
= -14MS 



assenble revision 249 c v aoc program colossus by nasa 2021111-041 

L AUTOMATIC MANEUVERS 

1*0052 CALCULATION OP ATTITUDE ERRORS- 
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R0053 

R0054 

R00S5 

R0057 

R0059 

R0081 

R0063 

R0065 

R006T 

R0069 

R0071 

00T5 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 


Ak = AMffl cause - THBWDX) ♦ BIAS 


IB 


♦Ak * * I SDK PSI> 0 ** CDUX - THEWDX * 

* * * ** * 

*AK1* = * 0 OQS(PSI)COSCPHI) SIN(PHI)** CDUY - THEWDY * 

* * * ** * 

*Akz* * 0 -COsfPSDSINCPHI) COS(PHI)** CDUZ - THETADZ * 

Aim SHILE PERFORMING AUTOMATIC MANEUVERS (ESP KALCMANU) TO PROVIDE ADDITKMAL LEAD 

AND PREVENT (VERSHOOT EKES STARTING AN AUTCMATIC MANEUVER. NORMALLY THE REQUIRED LEAD IS CNLY DEGJ2HS 

IT CAM BE AS *** As T DEGREE S- THE BIASES ARE CCMPUIED BY KALCMANU AND REMAIN 
FIXED INTIL THE MANBJVER IS COMPLETED AT WHICH TI>E THEY ARE RESET TO ZERO 


48 IAS * 
* * 

+ 48IAS1* 
* 4 

48IAS24 


REF 23 last 993 


REF 

REP 

REF 

REP 

REP 

REP 

REF 

REF 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REP 

REF 

REP 


6 

9 

14 

3 

16 

4 
10 

17 

4 

5 

18 

4 

5 

17 

3 

19 

4 

6 

20 

4 

6 

14 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

L4ST 

LAST 

LAST 


979 

993 

993 

643 

994 

993 

998 

998 

993 
991 
998 

994 

993 

994 

114 

998 

994 

998 

998 

994 

998 

996 


21,3308 3 0032 0 ATTHOLD CA CDUX 

21,3307 0 0008 1 EXTEND 

21.3310 21-572 1 MSU THETADx 

21.3311 55«567 0 TS EHRORX 

21.3312 3 0033 1 CA QXJY 

21.3313 0 0006 1 EXTBTO 

21.3314 21«573 0 MSU THETADY 

21.3315 55-502 0 TS 151HMP 

21.3316 0 0006 1 EXTEND 

21.3317 7 1640 0 MP AMGBi 

21.3320 27-567 0 ADS ERR0RX 

21.3321 3 1502 1 CA 15 TEMP 

21.3322 0 0006 1 EXTEND 

21.3323 7 1641 1 MP AMG84 

21.3324 55«570 0 TS BRRORY 

21.3325 3 15 0 2 1 CA 15 TEMP 

21,3328 0 0006 1 EXTfND 

21,3327 7 1643 0 MP AMG87 

21.3330 55-571 1 TS ERRORz 

21.3331 3 0 034 0 CA CDUZ 

21.3332 0 0006 1 EXTEND 

21.3333 21-574 1 MSU THBTADz 

21.3334 55-5 0 2 0 TS 15 TEMP 

21.3335 0 0006 1 EXTEND 

21.3336 7 1642 1 MP AMOls 

21.3337 27-570 0 ADS BRRORY 

21.3340 3 1502 1 CA 15 TEMP 

21.3341 0 0006 1 EXTEND 

21.3342 7 1644 1 MP AMCBs 

21,334 3 27-571 1 ADS ERRORZ 

21.3344 4 1 332 0 Cs HODFIAG 

21.3345 0 0006 1 EXTEND 
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•107 

REF 

2 

LAST 

990 

21,3346 

6 3425 

1 

•108 

REP 

4 

LAST 

411 

21,3347 

3 1564 

1 

•10S 

REP 

11 

LAST 

998 

21,3350 

27«567 

0 

•110 

REP 

4 

LAST 

411 

21,3351 

3 1565 

0 

•111 

REP 

T 

LAST 

998 

21,3352 

27«570 

0 

• 112 

REP 

4 

LAST 

411 

21,3353 

3 1566 

0 

•113 

REP 

T 

LAST 

998 

21,3354 

27-5T1 

1 

•114 

REP 

3 

LAST 

999 

21,3355 

1 3425 

0 

•115 

REP 

15 

LAST 

998 

21,3356 

11*332 

0 

•118 





21,3357 

1 3362 

1 

•lit 

REP 

2 

LAST 

996 

21,3360 

1 3306 

0 

•118 





21,3361 

1 3382 

1 

Oil* 

REP 

182 

LAST 

993 

21,3362 

3 4714 

1 

•1191 

HEP 

13 

LAST 

990 

21,3363 

55«525 

0 

01192 

REP 

14 

LAST 

999 

21,3364 

55*526 

0 

•1193 

REF 

5 

LAST 

585 

21,3385 

55*527 

1 

01194 

REP 

6 

LAST 

999 

21 , 3386 

55*530 

1 

01195 

REF 

6 

LAST 

585 

21,3367 

55*531 

0 

01198 

REF 

T 

LAST 

999 

21,3370 

55*532 

0 

•1197 

REP 

5 

LAST 

999 

21,3371 

55*584 

0 

01198 

REF 

5 

LAST 

999 

21 , 3372 

S5«565 

1 

•1199 

HEP 

5 

LAST 

999 

21,3373 

55*566 

1 

0120 

REP 

43 

LAST 

996 

21,3374 

3 1501 

1 

01201 

REP 

4 

LAST 

990 

21,3375 

7 3023 

1 

•12011 





21,3376 

0 0006 

1 

01202 

HEP 

1 



21,3377 

1 3405 

1 

01203 

REF 

183 

LAST 

999 

21,3400 

3 4T14 

1 

01204 

REP 

12 

LAST 

999 

21,3401 

55«S6T 

0 

01205 

REP 

8 

LAST 

999 

21,3402 

55«5T0 

0 

01206 

REP 

8 

LAST 

999 

21,3403 

55*571 

1 

01207 

REF 

4 

LAST 

999 

21,3404 

1 3425 

0 

01208 

REP 

16 

LAST 

999 

21,3405 

55*332 

0 

01209 





21,3406 

0 0006 

1 

0121 

REP 

24 

LAST 

998 

21,3407 

3 0033 

1 

•1211 

HEP 

7 

LAST 

998 

21,3410 

53*573 

0 

•1212 

REP 

18 

LAST 

998 

21,3411 

3 0034 

0 

•1213 

REP 

4 

LAST 

998 

21,3412 

55*574 

1 

•1214 

REP 

3 

LAST 

999 

21,3413 

1 3306 

0 



B»f» 

JETS 


CA 

BIAS 


ADS 

BRRORX 


CA 

BIASl 


ADS 

ERRORY 


CA 

BIAS2 


ADS 

ERRORZ 


TCP 

JETS 

HOLDFIHC CCS 

HOLDFLAG 


TCP 

♦3 


TCP 

ATTHOLD 


TCP 

♦1 

GRABANG 

CAP 

ZERO 


TS 

WBCDY 


TS 

WBCDY +1 


TS 

WBCDYl 


TS 

WBCDY 1 +1 


TS 

W8CDY2 


TS 

WBCDY 2 +1 


TS 

BIAS 


TS 

BIASl 


TS 

BIAS2 


CA 

RCSPLAGS 


MASK 

EXTB4D 

OCT16000 


BZP 

ENDDAMP 


CAP 

zero 


TS 

errorx 


TS 

ERRORY 


TS 

ERRORZ 


TCP 

JETS 

ENDDAMP 

TS 

Extend 

HCXDFLAG 


dca 

CDUX 


DxCH 

THETADX 


CA 

CttJZ 


TS 

THETADZ 


TCP 

ATIHOLD 


20*35 OCT. 28,1988 DAPCS>! .195 PAGE 999 
USBRaS PACE NO. 4 E6 S3 

AD BIASES ONLY IP PERFORMING AUTOMATIC 


ZERO WBODYS AND BIASES 


IS RATE DAMPING CCMPIETED 
IF SO, GO TO ENDDAMP 
OTHEFWTSR, ZERO ERRORS 


SET HOIDFIAG +0 _ 

PICK UP CDU ANGLES FOR ATTITUDE HOID 
REFERENCES 
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USBR-S PAOB NO. 5 


P0130 JET SWITCHING LOGIC AND CALCULATION OP REQUIRED ROTATION CCM4ANDS 


E8 S3 


R0131 

R0133 

R0134 

R0138 

ROUT 

ROUS 

R0139 

R0140 

R0142 

R0143 

R0145 

R0146 

R0148 

R0150 

R0151 

R0152 

R0153 

R0154 

R0155 

R0158 

R01ST 

R0158 

R0159 

R0160 

R0161 

R0182 

R0163 

R0164 

R0165 

R0166 

R018T 

R0168 

R0169 

R0170 

R01T1 

0172 

0173 

0174 

0174 

0175 
01 T5 
0178 

0176 


DETERMINE the LOCATICN OP THE RATE ERROR AND THE ATTIUDE ERROR RELATIVE TO THE SWITCHING LOGIC IN THE PHASE 
APmwUAHT RATE CcshB SPCNDING TO THE ATTIUDE ERROR NECESSARY TO DRIVE THE THE S/C INTO THE 


R22 


WL+H 


RATE 


R23 WL 
R23 WL-H 


R22 


* - 
* 

*- 

R24*- 

*- 


R23 


♦ -AD0 


AF * 


* 

* 


error 


* R18 
* 

* 

* 

* 


H20 


R21 


* **** 9*1701 LINES ENCLOSING DEADzCNES 

DESIRED RATE LINES 

R20, R21, R22, ETC REGIONS IN PHASE 
PLANE FOP COMPUTING DESIRED RESPONSE 


* AF 


4 AD 8 


* 

-* 


attitude 

error 


* 

- * 





FIG. 1 PHASE PLANE SWITCHING LOGIC 
CONSTANTS FOR JET SWITCHING LOGIC 


21,3414 

00114 

0 

WLH/SLOP DEC 

.00463 

= WL+H/Sl-OPE 

= .83333 

21,3415 

00055 

1 

WL-H/SLP DEC 

.00277 

= WL-H/SIDPE 

= .5 deg 

21,3416 

00022 

1 

W1H 

ZDEC 

.0011111111 

= WL+H =0.5 

DEG/SEC 

21,3417 

06426 

1 






21,3420 

00012 

1 

wuvw 

2D6C 

-0006666666 

= WL-H = 0.3 

DEG/SEC 

21,3421 

35415 

1 






21,3422 

00016 

0 

WL 

2DBC 

-0008888888 

= WL =0.4 

DEG/SEC 

21,3423 

22021 

1 







$180 

$180 

$450 

$450 

$450. 
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OITT 





21,3424 

12173 

1 

3JOPB2 

dec 

.32 

- o.8 DBG/SEC /DEG *450/180 

01T8 

REP 

5 

LAST 

688 

21,3425 

3 1655 

0 

JETS 

CA 

ADB 


0179 

REP 

13 

LAST 

987 

21,3426 

6 4710 

0 


AD 

POUR 

AP = PLAT REGION = .044 DBG 

0100 

RES' 

21 

LAST 

998 

21,3427 

55«502 

0 


TS 

TSTE4P 

■ ADB+AF 

0181 

REP 

43 

LAST 

989 

21,3430 

3 4711 

1 


CAP 

TWO 


0182 

HEP 

28 

LAST 

990 

21,3431 

55*508 

1 

JLOOP 

TS 

SPNPX 


0183 





21,3432 

6 0000 

1 


DOtBLE 



0184 

REP 

24 

last 

990 

21,3433 

55*507 

0 


TS 

DPNDX 


0185 





21,3434 

0 0006 

1 


EXTB® 



0186 

REP 

229 

LAST 

996 

21,3435 

5 0000 

1 


INDEX 

A 


0187 

REP 

9 

LAST 

977 

21,3436 

3 1534 

1 


DCA 

ADOT 


0108 

REP 

2 

LAST 

106 

21,3437 

53*516' 

0 


DXCH 

EDOT 


0189 

REP 

17 

LAST 

999 

21,3440 

3 1332 

1 


CA 

HOLDFLAG 

HOLDFLAG = +o MEANS THAT DAP IS IN 

0190 





21,3441 

0 0006 

1 


Ext®® 


A1THLDB HOLD AND RATE DAMPING IS CVER. 

0191 

REP 

1 



21,3442 

1 3447 

1 


BZP 

D«CLD 

IF THIS IS THE CASE, BYPASS ADOITION 

A01911 











OF WB0DY AND GO TO INHCLD 

0192 





21,3443 

0 0006 

1 


ext®® 



0193 

REP 

25 

LAST 

1001 

21,3444 

5 1507 

1 


INDEX 

DPNDX 


0194 

REP 

15 

LAST 

999 

21 , 3445 

4 1526 

0 


DCS 

WBCDY 


0195 

REP 

3 

LAST 

1001 

21,3446 

21*516 

0 


DAS 

EDOT 

= ADOT-W0CDY 

0196 

REP 

25 

LAST 

1001 

21,3447 

51*506 

0 

INHCLD 

INDEX 

SPNOX 


0197 

REP 

13 

LAST 

999 

21,3450 

3 1567 

1 


CA 

ERRORX 


0193 

REP 

2 

LAST 

106 

21,3451 

55«517 

1 


TS 

AERR 

AERR = BIAS + A(C 

0199 

REP 

4 

LAST 

1001 

21,3452 

11*515 

0 


CCS 

EDOT 


0200 

REP 

1 



21,3453 

1 3483 

1 


TCF 

POSVEL 


0201 

REP 

1 



21,3454 

1 3456 

1 


ICE 

SICNCK1 


0202 

REP 

1 



21,3455 

1 3473 

0 


TCP 

nbgvel 


0203 

REP 

5 

LAST 

1001 

21,3456 

11«S16 

0 

SLGNCK1 

CCS 

EDOT +1 


0204 

REP 

2 

LAST 

1001 

21,3457 

1 3463 

1 


TCP 

posvel 


0205 

REP 

3 

LAST 

1001 

21,3460 

1 346 3 

1 


TCP 

POSVEL 


0206 

REP 

2 

LAST 

1001 

21,3461 

1 347 3 

0 


TCP 

NBGVEL 


0207 

REP 

3 

LAST 

1001 

21,3462 

1 3473 

0 


TCP 

NBGVEL 


0208 





21,3463 

0 0008 

1 

POSVEL 

EXTEND 



0209 

REF 

6 

LAST 

1001 

21,3464 

3 1516 

1 


DCA 

EDOT 


0210 

REP 

2 

LAST 

106 

21,3465 

53«521 

1 


DXCH 

KXnvETj 


0211 

REP 

22 

LAST 

1001 

21,3466 

3 1502 

1 


CA 

TCTEMP 


0212 

REP 

1 



21,3487 

55*523 

0 


TS 

ADBvEL 

+CADB+AF) 

0213 

REP 

3 

LAST 

1001 

21,3470 

3 1517 

0 


CA 

AERR 


0214 

REP 

2 

LAST 

106 

21,3471 

55*522 

1 


TS 

AERRVEL 


0215 

REP 

1 



21,3472 

0 35 0 2 

0 


TC 

J6. 


0216 





21,3473 

0 0006 

1 

NFOVEL 

ext®® 



0217 

REF 

7 

LAST 

1001 

21,3474 

4 1516 

0 


DCS 

EDOT 


0218 

REP 

3 

LAST 

1001 

21,3475 

53*521 

1 


DXCH 

EDOTVEL 


0219 

REP 

23 

LAST 

1001 

21,3476 

4 1502 

0 


CS 

TST®4P 


0220 

REP 

2 

LAST 

1001 

21,3477 

55*523 

0 


TS 

ADBVEL 

-(ADB+AF) 

0221 

REP 

4 

LAST 

1001 

21,3500 

4 1517 

1 


CS 

AERR 


0222 

REP 

3 

LAST 

1001 

21,3501 

55«522 

1 


TS 

AERRVEL 


0223 





21,3502 

0 0008 

1 

JB. 

EXT®® 
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•224 

REP 

6 

LAST 1001 

21,3503 

61*655 0 


SU ADB 

•225 

REP 

1 


21,3504 

6 3414 0 


AD WLH/SLOP 

022* 




21,3505 

0 0006 1 


extend 

0227 

REP 

1 


21,3500 

6 3535 1 


BzMP Ja 

0228 

REP 

24 

LAST 1001 

21.350T 

4 1502 0 


Cs T5TSAP 

0229 

REP 

4 

LAST 1001 

21,3510 

6 1522 0 


AD AERRVEL 

0230 




21,3511 

0 0006 1 


EXTH© 

0231 




21,3512 

6 3514 1 


BzW *2 

0232 

REP 

1 


21,3513 

1 3526 1 


TCP Jt 

•233 




21,3514 

0 0006 1 


EXTEND 

0234 

REP 

4 

LAST 1001 

21,3515 

4 1521 1 


DCs EDOTVBL 

0235 




21,3516 

0 0006 1 


bxt®® 

0236 

REP 

3 

LAST 98S 

21 ,3517 

11*654 0 


DV SLOPE 

0237 




21,3520 

0 0006 1 


EXTEND 

0238 

HEP 

5 

LAST 1002 

21,3521 

61*522 0 


SU AERiVEL 

0239 

REF 

7 

LAST 1002 

21,35 22 

6 1655 0 


AD ADB 

0240 




21,3523 

0 0006 1 


EXTEND 

0241 

REP 

1 


21,3524 

6 3614 1 


B2MP Jj8 

0242 

REP 

1 


21,3525 

1 3670 1 


TCP J23 

0243 

REP 

1 


21,3526 

4 3415 0 

J7 

CS WL-H/SLP 

0244 




21,3527 

0 0006 1 


EXTEND 

0245 

REP 

25 

LAST 1002 

21,3530 

61*502 1 


SU T5TTWP 

0246 

REF 

6 

LAST 1002 

21,3531 

6 1522 0 


AD AERRVEL 

0247 



. 

21,3532 

0 0006 1 


Extend 

0240 

REP 

1 


21,3533 

6 3620 0 


BZMP J20 

0249 

REP 

1 


21,3534 

1 3631 1 


TCP J 21 

0250 




21,3535 

0 0006 1 

Ja 

EXTEND 

0251 

REF 

1 


21,3536 

4 3417 1 


DCS WLH 

0252 

REP 

6 

LAST 994 

21,3537 

53*514 1 


DXCH WTEMP 

0253 




21,3540 

0 0006 1 


EXTEND 

0254 

REP 

5 

LAST 1002 

21,3541 

3 1521 0 


dca edotvel 

0255 

REP 

7 

LAST 1002 

21,35 4 2 

21*514 1 


DAS WTEMP 

0256 

REP 

8 

LAST 1002 

21,3543 

11*513 0 


CCS WTEMP 

0257 

REF 

1 


21,3544 

1 3657 1 


TCP J22 

0258 

REP 

1 


21,3545 

1 3547 0 


TCP SI0NCK2 

0259 

REF 

1 


21,3546 

1 355 3 0 


TCF NJ22 

0260 

REF 

9 

LAST 1002 

21,3547 

11*514 1 

SIGNCK2 

CCS WTEMP +1 

0261 

REF 

2 

LAST 1002 

21,35 5 0 

1 3657 1 


TCP J 22 

0262 

REP 

3 

LAST 1002 

21,3551 

1 3657 1 


TCP J 22 

0263 

REP 

2 

LAST 1002 

21,3552 

1 355 3 0 


TCP NJ22 

0264 




21,355 3 

0 0006 1 

NJ22 

EXTEND 

0265 

REP 

6 

LAST 1002 

21,3554 

3 1521 0 


DCA EDOTVEL 

0266 




21,3555 

0 0006 1 


EXTEND 

0267 

REP 

4 

LAST 1002 

21,3556 

11*654 0 


TV SLOPE 

0268 

REF 

26 

I A ST 1002 

21,3557 

6 1502 1 


AD T5TEMP 

0269 

REP 

7 

[AST 1002 

21 ,3560 

6 1522 0 


AD AERRVEL 


(AD0+AP) 


(ADB+AP) 




(ADB+AP) 
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02T0 

REP 230 

LAST 1001 

21,3561 

10 000 

0 

02T1 

REP 

2 

LAST 1002 

21,3562 

1 3870 

1 

02T2 

REP 

3 

LAST 1003 

21,35 6 3 

1 3670 

1 

02T3 




21,3564 

1 3566 

0 

0274 

HEP 

4 

LAST 1003 

21,3565 

1 3670 

1 

0275 




21,3566 

0 0006 

1 

0278 

REP 

1 


21,3567 

4 3421 

1 

0277 

REP 

10 

LAST 1002 

21,357 0 

53*514 

1 

0278 




21,3571 

0 0006 

1 

0279 

REP 

T 

LAST 1002 

21,357 2 

3 1521 

0 

0280 

REP 

11 

LAST 1003 

21,3573 

21*514 

1 

0281 

REP 

12 

LAST 1003 

21,3574 

11«513 

0 

0282 

REP 

5 

LAST 1003 

21,3575 

1 3670 

1 

0283 

REP 

1 


21,3576 

1 3600 

0 

0284 

REP 

1 


21,3577 

1 3604 

1 

0285 

REP 

13 

LAST 1003 

21,3600 

11*514 

1 

0286 

REP 

6 

LAST 1003 

21,3601 

1 3870 

1 

0287 

REP 

T 

LAST 1003 

21,3602 

1 3670 

1 

0288 

REP 

2 

LAST 1003 

21,3603 

1 3604 

1 

0289 

REP 

8 

LAST 1002 

21,3604 

3 1522 

0 

0290 

REP 

27 

LAST 1002 

21,3605 

6 1502 

1 

0291 

REP 

2 

LAST 1002 

21,3606 

6 3415 

1 

0292 

REP 

231 

LAST 1003 

21,3607 

10 000 

0 

0293 

REP 

1 


21,3810 

1 3702 

0 

0294 

REP 

2 

LAST 1003 

21,3611 

1 3702 

0 

0295 

REP 

4 

LAST 1002 

21,3612 

1 3657 

1 

0296 

REP 

5 

LAST 1003 

21,3613 

1 3657 

1 

0297 




21,3614 

0 0006 

1 

0298 

REP 

8 

LAST 1001 

21,3615 

4 1516 

0 

0299 

REP 

24 

LAST 996 

21,3616 

5 3*5 1 1 

1 

0300 

REP 

1 


21,3817 

1 3713 

0 

0301 

REP 

5 

LAST 1001 

21,3620 

4 1517 

1 

0302 

REP 

3 

LAST 1001 

21,3621 

6 1523 

1 

0303 




21,3622 

0 0006 

1 

0304 

REP 

1 


21,3623 

7 3424 

1 

0305 

REP 

25 

LAST 1003 

21,3624 

53*511 

1 

0306 




21,3625 

0 0008 

1 

0307 

REP 

9 

LAST 1003 

21,3626 

4 1516 

0 

0308 

REP 

26 

LAST 1003 

21,3627 

21*511 

1 

0309 

REP 

2 

LAST 1003 

21,3630 

1 3713 

0 

0310 

REP 

10 

LAST 1003 

21,36 31 

11«515 

0 

0311 

REP 

1 


21,3632 

1 3650 

0 

0312 

REP 

1 


21,3633 

1 3635 

0 

0313 

REP 

1 


21,3634 

1 3841 

0 

0314 

REP 

11 

LAST 1003 

21,3635 

11*516 

0 


CCS 

TCP 

TCP 

TCP 

TCP 


A 

J23 

J23 

*2 

J23 


DAS 

CCS 

TCP 

TCP 

TCP 

SIGNCK3 CCS 
TCP 
TCP 
TCP 


NJ23 


Jl8 


J20 


J21 


EXTB® 

DCS WL>W 
DXCH WTS4P 
EXTBTO 

DCA EDOIVEL 
WTPMP 
W7EMP 
J23 

SIGNCK3 
NJ23 
WTH4P +1 
J23 
J23 
NJ23 


CA 

AD 

AD 

CCS 

TCP 

TCP 

TCP 

TCP 


AERRVEL 

TSTEMP 

WL-H/SLP 

A 

J24 

J24 

J22 

J22 


EXTEND 
DCs roar 

DXCH KMPAC 

TCP JTIME 

cs aerr 

AD ADBvEL 

Extend 

MP SS.OPB2 

DXCH KMPAC 

EXTEND 
DCS EDOT 


DAS 
TCP 

CCS 
TCP 
TCP 
TCP 

SIGNCK4 CCS 


KMPAC 

JTIME 

EDOT 

JP 

SICNCK4 

JN 

EDOT »1 


WL - H 


CADB+AP) 


(HYSTERESIS SLOPE) 
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0315 

PEP 

2 

LAST 1003 

0310 

REP 

3 

LAST 1004 

03 IT 

REP 

2 

LAST 1003 

0318 




0319 

REP 

12 

last 1003 

0320 

REP 

27 

LAST 1003 

0321 




0322 

REP 

1 


0323 

REP 

28 

LAST 1004 

0324 

REP 

3 

LAST 1003 

0325 




0326 

REP 

13 

LAST 1004 

0327 

REF 

29 

LAST 1004 

0328 




0329 

REP 

2 

LAST 1004 

0330 

REP 

30 

LAST 1004 

0331 

REP 

4 

LAST 1004 

0332 

REP 

14 

LAST 1004 

0333 

REP 

3 

last 1004 

0334 

REP 

1 


0335 

REP 

4 

LAST 1004 

0336 

REP 

15 

LAST 1004 

0337 

REP 

4 

LAST 1004 

0338 

REP 

5 

LAST 1004 

0339 

REF 

5 

last 1004 

0340 

REP 

6 

LAST 1004 

0341 

REP 

30 

LAST 1001 

034151 

REP 

40 

LAST 996 

034152 

REP 

44 

LAST 999 

034153 

REF 

45 

LAST 1004 


AO 34154 


034155 

REP 

31 

LAST 1004 

034156 

REP 

1 


034157 

034158 

REP 

46 

LAST 1004 

034159 

REP 

1 


03416 

REF 

2 

LAST 1002 

0342 

0343 

REP 

6 

I A ST 1003 

0344 

0345 

REP 

4 

LAST 1003 

0346 

REP 

2 

(AST 1003 

0347 

0348 

REF 

31 

LAST 1004 


21,3638 

1 3650 0 


TCP 

JP 

21,3637 

1 3650 0 


TCP 

JP 

21,3840 

1 3641 0 


TCF 

JN 

21,3641 

0 0008 1 

JN 

EXTB© 


21,3842 

4 1516 0 


DCS 

EDOT 

21,3843 

53«S11 1 


DXCH 

KMPAC 

21,3844 

0 0008 1 


Exraro 


21,3845 

3 3423 1 


DCA 

WL 

21,3648 

21«511 1 


DAS 

KMPAC 

21,3647 

1 3713 0 


TCF 

JTIMB 

21,3850 

0 0006 1 

JP 

EXTEND 


21,3851 

4 1516 0 


DCs 

EDOT 

21,3652 

5 3«5 1 1 1 


DXOI 

KMPAC 

21,365 3 

0 0006 1 


extend 


21,3654 

4 3423 0 


DCs 

WL 

21,3655 

21«511 1 


DAS 

KMPAC 

21,3656 

1 3713 0 


TCP 

JTIMB 

21,3657 

11«S15 0 

J22 

CCS 

EDOT 

21,3660 

1 3641 0 


TCP 

JN 

21,3661 

1 3663 0 


TCP 

SIGNCK5 

21,3662 

1 3650 0 


TCP 

JP 

21,3663 

11«516 0 

SIGNCK5 

CCS 

EDOT +1 

21,3664 

1 3641 0 


TCF 

JN 

21,3665 

1 3641 0 


TCP 

JN 

21,3666 

1 3650 0 


TCP 

JP 

21,3667 

1 365 0 0 


TCF 

JP 

21,3670 

51«506 0 

J23 

INDEX 

SPNPx 

21,3671 

4 4676 0 


Cs 

BIT13 

21,3672 

7 1501 0 


MASK 

RCSFIAGS 

21,3673 

55«501 0 


TS 

HCSFLAGS 


21,3674 

51«506 

0 

INDEX 

SPNDX 

21,3675 

3 

3017 

1 

CAF 

OCT01400 

21,3676 

7 

1501 

0 

MASK 

RCSFLAGS 

21,3677 

0 

0006 

1 

EXTEND 


21,3700 

1 

3734 

0 

BZF 

DOJET +2 

21,3701 

1 

3614 

0 

TCP 

Jl8 

21,3702 

4 

1517 

1 J24 

CS 

aehr 

21,3703 

0 

0006 

1 

EXTEND 


21,3704 

6 1«523 

1 

ai 

ADBvEL 

21,3705 

0 

0006 

1 

extend 


21,3706 

7 

3424 

1 

MP 

SX3PE2 

21,3707 

53«511 

1 

DXCH 

KMPAC 

21,3710 

0 

0006 

1 

EXTEND 



USBRaS PAGE NO. 9 Ea S3 


RESET RATE DAMPING FLAG 
BIT13 FOR ROLL (SPNDX = 0) 
BIT12 TOR PITCH (SPNDx = 1) 
BITil FOR YAW (SPNDx = 2) 


IS THERE TO BE A FORCED FIRING CN THIS 
AXIS 

NO, GO TO DOJET +2 AND DO NOTHING 
YES, GO TO Jl8 AND FORCE A FIRING 


(HYSTERESIS SIXIPE) 
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0349 REP 16 LAST 1004 21,3711 4 1518 0 DCS BOOT 

0350 REP 32 LAST 1004 21.3T12 21«511 1 DAS KMPAC 
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P0351 

R0353 

R0354 


U®R*S PAGE NO. 11 Bq S3 

OCMPUIB W8 JOT CN TIFB NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, IB 

T = J/MC DELTA w> 

J 


R0355 DSLTA w = DBSIR3> CHANGE IN S/C ANGULAR RATE AS DETERMINED BY THB 

R °356 S* ITCHING LOGIC, AT THIS POINT STORED IN KMPAC. 


R035T 

R0358 

R0359 

R0380 


J/M = s/C INERTIA to TORQUE 9ATI0 SCALED BY 
C5T.3/450HB24/1600H1/.8) 

KM 1 JET OPERATION CM = 700 FT-LB) . 

IB J/M = J(SLUG-PIOT) X 0.00000085601606 


R0361 

R0362 

R0363 

R0364 

R0365 


UK OCMRESPCNDINO CCMPUIER VARIABLES establish by 
keyboard entry ARE 

J/M (ROLL) 

J/Mi (PITCH) 

J/M2 <YAW) 


B03B8 T = JET CN-TM3 SCALED 16384/1600 SEC 

R036T J 


WE COMPUTER VARIABLES ARE 
TAU (RCIi,) 

WU1 (PITCH) 

TAUZ (YAsr) 


R0388 



R0369 



R0370 



R0371 



0372 

REP 

32 

0373 

REF 

3 

0374 

REP 

2 

0375 

REP 

29 

0376 

REP 

3 

0377 

REF 

33 

0378 



0379 

REP 

1 

0380 



0381 

REP 

2 

0382 

REP 

26 

0383 

REF 

2 

0384 

REP 

8 

0385 

REP 

3 

0386 

REP 

34 

0387 

REP 

33 

0388 

REP 

4 

0389 

REP 

34 

0390 

REP 

1 

0391 

REP 

2 


LAST 

1004 

21,3713 

LAST 

691 

21,3714 

LAST 

976 

21,3715 

LAST 

955 

21,3716 

LAST 1006 

21,3717 

LAST 1005 

21.3720 

21.3721 

21.3722 

21.3723 

LAST 

1006 

21,3724 

LAST 

973 

21,3725 

LAST 

1004 

21,3726 

LAST 

971 

21,3727 

LAST 

1006 

21,3730 

LAST 

1006 

21,3731 

LAST 

1006 

21,3732 

LAST 

996 

21,3733 

LAST 

1006 

21.3734 

21. 3735 

LAST 

991 

21.3736 


51*506 0 JTIFE 
3 1623 1 

0 2026 I 
3 4700 1 
0 2026 1 
11*510 0 

1 3725 O 
1 3731 0 
1 3727 1 
1 3731 0 
3 4672 0 
1 3732 0 
3 4674 0 
1 3732 0 

3 1511 0 TAUNORM 
51*506 0 CXXJET 
55*561 0 
11*506 1 
1 3431 0 
1 3743 0 


INDEX 

SPNDX 

CA 

J/M 

TC 

S44LLMP 

CA 

BITll 

TC 

S4ALLMP 

CCS 

KMPAC 

TCP 

+4 

TCP 

TAUNORM 

TCP 

♦4 

TCP 

TAUNOFM 

CA 

POS4AX 

TCP 

DOJET 

CA 

NEGMAx 

TCP 

DQJBT 

CA 

KMPAC +1 

INDEX 

SPNDX 

TS 

TAU 

CCS 

SPNDX 

TCP 

JLOOP 

TCP 

TBPROG 


PICK UP S/C INERTIA /TORQUE RATIO 
SCALED (57.3/450HB24/1600) 

FOR i-JET OPERATION 
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0392 

REP 184 

LAST 

999 

21,3737 

0393 

REP 

5 

LAST 1006 

21.3T40 

0394 

REP 

4 

LAST 

996 

21,3741 

0395 

REP 

4 

LAST 

997 

21,3742 

0390 





21,3743 

039T 

REP 

1 



21,3744 

0398 

REP 

20 

LAST 

973 

21,3745 

0399 

REP 

39 

LAST 

994 

21,3746 

0400 

REP 

35 

LAST 1006 

E6,1510 

0401 

REP 

1 



21,3747 

0401 

REP 

1 



21,3750 


3 4714 

1 

ZEROfMJS CAP 

ZERO 

55*561 

0 


TS 

TAU 

55*562 

0 


TS 

TAU 1 

55*563 

1 


TS 

TAU2 

0 0006 

1 

TBPROG 

EXTEND 


3 3750 

0 


DCA 

JETADDR 

53*313 

0 


DXCH 

TSLOC 

1 5222 

1 


TCP 

RE Sll® 




EBANK- 

kmpac 

02577 

0 

JETttDDR 

2 CADR 

jetslect 

38066 

1 





USEHoS PAGE NO. 12 Bo S3 


•HEN THE ROTATION COMMANDS (TAUS) 

have been determined 

RESET T 5 LOC FOR PHASE 3 
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US8R«S PAOB NO. 


ROOOl 

CALCUATICN OP AM®, AMBO 

(HOE EVERY ffiCCND 


R0002 

AMO0 x 

1 

SIN(PSI) 

0 



R0003 



0 

COSC PSI ICOSC PHI) SIN(PHI) 



R0004 



0 

-COSCPSDSINCPHI) COS(PHI) 



ROOQ5 









R0006 

AMBO = 

1 

-WN(PSI)COS(PHI) 7AN(PSI)SIN(PHI) 


RG007 



0 

COS( PHI ) /Cost PSI ) -SIN( PHI) /COSC PSI) 


R0008 



0 

SIN(PHI) 

COSC PHI) 



R0009 









ROOIO 

WERE PHI AND PSI ARE CDU ANGLES 



R0011 









R0012 









0013 





20,3565 


bank 

20 

0014 

RBP 

1 



22,2000 


ffiTLOC DAPS8 

0015 





22,3444 


bank 


0016 

REP 

1 





COUNT* IS/DAPEX 

001T 

BBF 

36 

LAST 

1007 

E6,1510 


ebank= 

KMPAC 

0018 

REP 

26 

[AST 

904 

22,3444 

3 0102 1 AMXSJPDT CA 

FLAGwFDfi 

0019 





22,3445 

0 0006 1 

EXTEND 

0020 

HEP 

105 

LAST 

945 

22,3446 

6 5112 0 

BZMP 

BVDOFJCB 

0021 

REP 

61 

LAST 

996 

22,3447 

7 4675 0 

MASK 

BIT14 

0022 





22,3450 

0 0006 1 

EXTEND 


0023 

HEP 

106 

LAST 

1008 

22,3451 

1 5112 1 

BZF 

ENDCFJQB 

0024 

REP 

19 

LAST 

999 

22,3452 

3 0034 0 

CA 

CDuz 

0025 

REP 

1 



22,3453 

0 4770 0 

TC 

SPSIN2 

0026 

REP 

5 

LAST 

998 

22,3454 

55*640 0 

TS 

AMSBi 

0027 

REP 

20 

LAST 1008 

22,3455 

3 0034 0 

CA 

CDUZ 

0028 

REP 

1 



22,3456 

0 4767 0 

TC 

SPCOS2 

0029 

RBP 

2 

LAST 

108 

22,3457 

55*645 0 

TS 

CAPSI 

0030 

REP 

1 



22,3460 

3 3504 0 

CAP 

quadangl 

0031 





22,3461 

0 0006 1 

Extend 


0032 

REP 

25 

LAST 

999 

22,3462 

20 032 1 

MSU 

crux 

0033 





22,3463 

4 0000 0 

CCM 


0034 

REP 

1 



22,3464 

0 4767 0 

TC 

SPCOSl 

0035 

RBP 

5 

LAST 

998 

22,3465 

55*644 1 

TS 

AMGBg 

0036 





22,3466 

0 0006 1 

EXTEND 


0037 

REF 

3 

LAST 

00 

0 

0 

pH 

22,3467 

7 1645 0 

MP 

CAPSI 

0038 

REP 

5 

LAST 

998 

22,3470 

55*641 1 

TS 

AMGB4 

0039 

REP 

2 

LAST 

1008 

22,3471 

3 3504 0 

CAF 

QUADANGL 

0040 





22,3472 

0 0006 1 

extend 


0041 

RBP 

26 

I A ST 

1008 

22,3473 

20 032 1 

MSU 

CDUX 

0042 





22,3474 

4 0000 0 

CCM 


0043 

REP 

1 



22,3475 

0 4770 0 

TC 

SPSINl 

0044 

RBP 

5 

[AST 

998 

22,3476 

55«642 1 

TS 

AMD B5 

0045 





22,3477 

0 0006 1 

EXTEND 


0046 

REP 

4 

LAST 

1008 

22,3500 

7 1645 0 

MP 

CAPSI 

0047 





22,3501 

4 0000 0 

CCM 



check for rCs autopilot 

BIT15 = 0, BIT14 = 1 
IF NOT RCS, EXIT 

TO PROTECT TVC DAP CM SWITCHOVER 


CALCULATE AMGB 


MUST CHECK for gimbal lock 

= 7.25 DEGREES JET QUAD ANGUIAR OFFSET 




CDUX - 7.25 DEG 


CDUX - 7.25 DEG 


ASS&BLE REVISION 249 OP A OC PROGRAM COLOSSUS BY NASA 2021111-041 


20*35 OCT. 28,1988 DAPCSM -195 PACE 1009 



L RCS-CSM DAP BcBCUTIVE PROGRAMS 


0048 

0049 

0050 


REP 5 LAST 998 22,350 2 55«643 0 TS 

REP 107 LAST 1008 22,350 3 1 5112 1 T CP 

22,3504 01224 1 OUADAHO, DeC 


AM®T 

BTOOPJOB 

660 


USR.S PAGE NO. 2 Be S3 


= 7.25 DEGREES 



\ 





L 
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20*35 OCT. 23,1968 DAPC34 .195 PAGE 1010 


USERaS PAGE NO. 


Eo S3 


OOOl 


0002 

0003 

REP 

2 

LAST 963 

0004 

REP 

1 


0005 

REP 

37 

LAST 1008 

R0008 

examine 

CHANNEL 3i 

000T 

REP 

18 

LAST 973 

0008 

REF 

1 


0009 

REP 

6 

LAST 992 

0010 

0011 

REF 

23 

LAST 993 

0012 

REP 

1 


0013 

REF 

24 

LAST 1010 

0014 

REF 

1 


0015 

REF 

4 

LAST 987 

0010 

0017 

REF 

9 

LAST 1006 

0018 

0019 

REF 

10 

LAST 987 

0020 

REF 

14 

LAST 973 

0021 

0022 

REP 

1 


0023 

REP 

12 

LAST 996 

0024 

0025 

REF 

2 

LAST 1010 

0026 

REP 

1 


0027 

0028 

REF 

28 

LAST 1003 

0029 

REF 

31 

LAST 993 

0030 

REF 

30 

LAST 992 

0031 

REF 

3 

LAST 106 

0032 

REF 

2 

LAST 106 

0033 

0034 

REF 

29 

LAST 1010 

0035 

REF 

44 

LAST 990 

0036 

REF 

31 

LAST 1010 

0037 

REF 

3 

LAST 106 

0038 

0039 

REF 

30 

LAST ioio 

0040 

REF 

36 

LAST 988 

0041 

REF 

32 

LAST 1010 

0042 

REP 

2 

LAST 106 

0043 

REP 

70 

LAST 932 

00432 

REP 

62 

LAST 1008 


21.3TS1 

17,2000 

17,2577 


<56,1510 


BANK 21 
senxic daps * 
bank 

COUNT 17/DAPJS 
ebank= KMPAC 


17,2577 

17.2800 

17.2801 

17.2802 

17.2803 

17.2804 
17,2605 

17.2806 

17.2807 
17,2810 
17,2611 

17.2812 

17.2813 

17.2814 

17.2615 

17.2616 
17,2817 

17.2820 

17.2821 
17,28 22 
17,2823 
17,2624 
17,2825 

17.2626 

17.2627 

17.2630 

17.2631 
17,2832 
17,26 33 
17,2634 
17,2835 


22 016 
3 2661 
6 1634 
54 030 
1 2606 
3 266 2 
54 030 
3 3340 
54 031 
3 4674 
0 0006 

05 013 
0 0006 
22 012 
3 2660 
0 0006 

06 031 

7 2660 
0 0006 
1 266 3 
55*502 
0 0006 

7 4702 1 
7 6214 1 
55*513 0 
55*514 1 
3 1502 1 
0 0006 1 
7 4704 1 
T 6214 1 
55*515 0 


00434 


17,2838 3 15 02 1 

17,2837 0 0006 1 

17.2640 7 4706 0 

17.2641 7 6214 1 

17.2642 55«516 0 

17.2643 3 1466 1 

17.2644 7 4675 0 

17.2645 0 0006 1 


JBTSLECT LXCH 
CAP 
AD 
TS 
TCP 
CAP 
TS 
CAP 
TS 
CAP 

Extend 

WOR 

Extend 

QXCH 

CAP 

Extend 

RXOR 

MASK 

extend 

BzP 

TS 

extend 

mp 

mask 

TS 

TS 

CA 

EXTEND 

MP 

MASK 

TS 


BANKRUPT 
DELTA TT3 
T5TIME 
TIMES 
♦ 3 

DELATT20 

TIMES 

=14MS 

TIMES 

NECNAx 

CHAN13 

QfiUPT 

XLNMASK 

CHAN 31 
XLNMASK 

NCXLNCND 
15 TEMP 

BIT9 

THREE 

XNDX1 

XNDX2 

T5TEMP 

BIT7 

THREE 

YNDX 


CA T5TEMP 

EXTEND 
MP BIT5 

MASK THREE 

TS ZNDX 

CA DAPDATRl 

mask BIT14 

EXTEND 


60 ms reset to execute phasei 


= 20 MS TO ASSURE A T5RUPT 

RESET TB TO INITIALIZE THE JET CHANNELS 
IN 14 MS 


= 7700 OCT 

EXAMINE THE TRANSLATION 
HAND CCNTROUiiR 


AC QUAD X-TRANSl^TICN INDEX 
BD QUAD X -TRANSLATION INDEX 

1 = .+ XLN 

2 = - XLN 

3 = NO XIN 
Y-TRANSIATICN INDEX 


Z-TRANSIvATICN INDEX 

SET ATTKALMT TO PICK UP FILTER GAINS FOR 
TRANS! ATICNS. 

CHECK DAPDATRl BIT 14 FOR U=M ATTACHED. 





1 
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USER* 3 PACE NO. 2 Ee S3 

00436 

REE 

1 


IT, 2646 

1 2851 

0 


BZF 

NOL0M 


00438 

REF 

33 

LAST 1010 

IT ,2647 

4 6214 

1 


CS 

THREE 

IP LEM IS CN, SET ATIKALMN = -3 

0044 




17,2650 

1 2652 

0 


TCP 

*2 


00442 

REE 

44 

LAST 1001 

17,2651 

4 4711 

0 

NOLEN 

Cs 

TWO 

IP LEM IS OFF, SET ATIKALNN = -2. 

00444 

REP 

10 

LAST 992 

17,2652 

55«617 

1 


TS 

attkalnh 


0045 

REE 

4 

LAST 688 

17,2653 

11«631 

0 


CCS 

XTRANS 

C+, - 1 , 0) 

0046 

REE 

4 

LAST 1010 

17,2654 

55«513 

0 


TS 

XNDX1 

USING BD-X ZERO XNDX1 

0047 

REE 

1 


17,2655 

1 2867 

0 


TCP 

PWORD 


0048 

REE 

3 

LAST 1010 

17,2856 

55«514 

1 


TS 

XNDX2 

USING AC-X ZERO XNDX2 

0049 

REE 

2 

LAST 1011 

17,2657 

1 2867 

0 


TCP 

PWORD 


0050 




IT, 2660 

07700 

1 

XUW9( 

OCT 

7700 


0051 




17,2661 

37772 

1 

DELTATT3 D EC 

18378 

s 60 MS 

0052 




IT, 2662 

37776 

0 

DELATT20 DEC 

16382 

= 20 MS 

0053 

REP 

5 

LAST 1011 

17,2663 

55«513 

0 

NOXLNOO ts 

XNDX1 

ZERO ALL REQUESTS FOR TRANSLATION 

0054 

REE 

4 

LAST 1011 

17,2664 

55=514 

1 


TS 

XNDX2 


0055 

REE 

4 

LAST 1010 

17,2665 

55«S15 

0 


TS 

YNDX 


0056 

REE 

3 

LAST 1010 

IT, 2666 

55=518 

0 


TS 

ZNDX 


R005T 

PITCH COMANDS TIMING! NO X-TRANS, NO QUAD FAILS) 32MCT 



0050 

REF 

5 

LAST 100T 

17,2867 

11*582 

0 

pwoto 

CCS 

TAU1 

CHECK FOR PITCH COMMANDS 

0059 

REF 

107 

LAST 996 

17,2670 

3 4712 

1 


CAP 

CNE 


0060 




1T,26T1 

1 2673 

0 


TCP 

*2 

0 r NO PITCH 

0061 

REF 

45 

LAST 1011 

17,2672 

3 4711 

1 


CAP 

TWO 

+1 = + PITCH 

0062 

REF 

2 

LAST 106 

17,2673 

55*520 

0 


TS 

P INDEX 

+2 = - PITCH 


0063 

REP 

5 

LAST 

689 

IT, 2674 

11=626 

0 


0064 

REP 

1 



17,2675 

1 2701 

1 


0065 

REP 

1 



17,2676 

1 2T11 

0 


0066 

REP 

1 



IT, 2677 

1 2703 

0 


0067 

REP 

2 

LAST 

1011 

17,2700 

1 2T11 

0 


A0068 









A0069 









0070 

HEP 

5 

LAST 

977 

17,2701 

3 4334 

1 

AFAILP 

0071 

HEP 

3 

LAST 

1011 

17,2702 

1 2713 

1 


0072 

REP 

2 

LAST 

824 

IT, 2703 

3 5656 

1 

CFAILP 

0073 

RBP 

4 

LAST 

1011 

17,2704 

1 2713 

1 


0074 





IT, 2705 

00000 

1 

XLNNDX 

0075 





17,2706 

00003 

1 


0076 





17,2707 

00006 

1 


007T 





IT, 2710 

00000 

1 



CCS 

RACFAIL 

FIAG FOR REAL AC QUAD FAILURES 

TCP 

AFAILP 


TCP 

WRPCCM 

0 = NO REAL AC FAILURES 

TCP 

CFAILP 

t = A QUAD FAILED 

TCP 

TAB PC CM 

- = C QUAD FAILED 

IF FAILURES AHE PRESENT IGNORE 
X-TRANSLATICNS CN THIS AXIS 

CAP 

NINE 

IF FAILURE IS PRESENT lJET OPERATION 

TCP 

TABPCCM +2 

IS ASSUMED. IGNORE X-TRANSLATICN 

CAP 

twelve 


TCP 

TABPCCM +2 


DEC 

0 

INDECES FOR TRANSITION COMMANDS 

DEC 

3 

FOR USE IN TABIE LOCK UP 

DEC 

6 


DEC 

0 



nn7« RBP 1 LAST 712 5656 TWELVE r vi/rl4 

BOOT9 TABLE UX>C UP FOR PITCH CCMMANDS WITH AND WITHCXIT X-TOANSIATICN AND AC CXIAD FAILURES PRESENT. 

RO081 BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION 
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0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 


REP 0 
REP 1 
REF 3 
REP 232 
REP i 
REP i 
REP 2 


LAST 1011 


LAST 1011 
LAST 1003 


LAST 100 


REP 

REP 


LAST 1010 
LAST 106 


R0093 YAW JET COW4NDS 


0094 

0095 

0096 

0097 

0098 


REP 5 
REP 108 


LAST 1007 
LAST 1011 


REP 

REP 


LAST 1011 
LAST 106 


0099 

0100 
0101 
0102 
0103 


REF 

REP 

REP 

REP 

REF 


LAST 889 


LAST 1012 


0104 

0105 

0106 
0107 


REP 

REP 

REF 

REP 


LAST 1011 
LAST 1012 
LAST 1011 
LAST 1012 


17,2711 

51=513 1 

TABPCOI 

INDEX 

XNDX1 

17,2712 

3 2705 1 


CA 

XLNNDX 

17,2713 

6 1520 1 


AD 

P INDEX 

17,2714 

50 000 1 


INDEX 

A 

17,2715 

3 2741 1 


CA 

PYTABLE 

17,2716 

7 276 0 0 


MASK 

PJETS 

17,2717 

55«453 0 


TS 

PWORDl 

17,2720 

0 0006 1 


EXTEND 

17,2721 

7 4704 1 


HP 

biti 

17,2722 

55=523 0 


TS 

NPJETS 

IMINGINO X 

-TRANS, NO QUAD FAILURES) 

32MOT 

17,2723 

11=563 1 

YwORD 

CCS 

TAU2 

17,2724 

3 4712 1 


CAP 

ONE 

17,2725 

1 2727 0 


TCP 

+2 

17,2726 

3 4711 1 


CAP 

TWO 

17,2727 

55«521 1 


TS 

YINDSX 

17,2730 

11=827 1 


CCS 

RBDFAIL 

17,2731 

1 2735 0 


TCP 

BPAILY 

17,2732 

1 2762 1 


TCP 

TABYCOI 

17,2733 

1 2737 1 


TCP 

DPAILY 

17,2734 

1 2762 1 


TCP 

TABYC0M 

17,2735 

3 4334 1 

BPAILY 

CAP 

NINE 

17,2736 

1 2764 1 


TCP 

TABYCOI +2 

17,2737 

3 5656 1 

DPAILY 

CAP 

TWELVE 

17,2740 

1 2764 1 


TCP 

TABYCOI +2 


r 



20*35 OCT. 28,1968 DAPCSM .195 PAGE 1012 
USER.S PAGE NO. 3 Ba S3 


=1417 OCT 


NO. CP PITCH JETS 


CHECK FOR YAW COMANDS 


YAW ROTATION INDEX 


FLAG FOR B OR D QUAD FAILURES 
0 = NO BD FAILURE 

+ = B QUAD FAILED 

- = D QUAD FAILED 
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R0108 

TABLE TOR PITCH! YAW) COWANDS 









RG109 

BITS 4. 3. 2,1 s PITCH, X-TOANSLATICN JETS 

SELECTED 






ROHO 

BITS 

10.9 = NO. PITCH JETS USED TO PEKTOKM ROTATION 






Rom 

bits 

8, 7, 6, 5 = YAW, X-TOANSLATICN JETS SELECTED 







R0112 

bits 

12,11 * NO. YAW JETS USED TO PERTOE4 ROTATION 






A0113 







ROT 

TOWS 

quad 

BIAS 

0114 


17,2741 

00000 1 

pyiable 

OCT 

0 

0 

0 


0 

0115 


17,2742 

05125 1 


OCT 

5125 


O • 


0 

0116 


17,2743 

05252 1 


OCT 

5252 

- 

0 


0 

0117 


17,2744 

00231 1 


OCT 

0231 

0 

*■ 


3 

0118 


17,2745 

02421 1 


OCT 

2421 

♦ 

*■ 


3 

0119 


17,2746 

02610 1 


OCT 

2610 

- 

♦ 


3 

0120 


17,2747 

00146 1 


OCT 

0146 

0 

- 


6 

0121 


17,2750 

02504 1 


OCT 

2504 

4* 

- 


6 

0122 


17,2751 

02442 1 


OCT 

2442 

* 

- 


6 

0123 


17,275 2 

00000 1 


OCT 

0 

0 


A(B) 

9 

0124 


17,2753 

02421 1 


OCT 

2421 

♦ 


A(B) 

9 

0125 


17,2754 

02442 1 


OCT 

2442 

- 


A(B) 

9 

0126 


17,2755 

00000 1 


OCT 

0 

0 


C(D) 

12 

0127 


17,2758 

02504 1 


OCT 

2504 

♦ 


C(D) 

12 

0128 


17,2757 

02610 1 


OCT 

2610 

— 


C(D) 

12 

R0129 

MASKS TOR PITCH AND YAW COWANDS 








0130 


17,2760 

01417 1 

pjets 

OCT 

1417 





0131 


17,2761 

06360 1 

YJETS 

OCT 

6360 





R0132 

TABLE LOCK UP FOR YAW COWANDS WITH AND 

WITHOUT X-TRANSLATICN AND AC 

QUAD PA I LURES PRESENT 

HO 134 

BITS 

11, 12 CONTAIN THE NtfWER OF YAW JETS USED TO PERFORM THE YAW ROTATION 




0136 

HEP 

5 LAST 1011 17,276 2 

51«514 0 

TABYCCM 

INDEX 

XNDX2 





0137 

REF 

2 LAST 1012 17,2783 

3 2705 1 


CA 

XLNNDX 





0138 

REP 

3 LAST 1012 17,2764 

6 1521 0 


AD 

Y INDEX 





0139 

REF 

233 LAST 1012 17,2765 

50 000 1 


INDEX 

A 





0140 

REP 

2 LAST 1012 17,2766 

3 2741 1 


CA 

PYTABIF 





0141 

REF 

1 17,2767 

7 2761 1 


MA3C 

YJETS 

= 6360 OLT 



0142 

REP 

2 LAST 100 17,2770 

55«455 0 


TS 

TWORDl 





0143 


17,2771 

0 0006 1 


extend 





0144 

REP 

37 LAST 1010 17,2772 

T 4706 0 


MP 

BITS 





0145 

REP 

1 17,2773 

55«524 1 


TS 

NYJBTS 

NO. 

CP YA * JETS i 

USED TO 
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USERaS PAGE NO; 5 E6 S3 


0147 

REF 

6 

LAST 

1007 

0148 

REP 

109 

LAST 

1012 

0149 





0150 

REP 

47 

LAST 

1012 

0151 

REP 

2 

LAST 

106 

0152 

REP 

3 

LAST 

689 

0153 

REP 

1 



0154 

REP 

2 

LAST 

1014 

0155 





0156 

REP 

6 

LAST 

1011 

0157 

REP 

1 



0158 

REF 

1 



0159 

REP 

1 



0160 

REF 

2 

LAST 

1014 

0161 

REP 

7 

LAST 

1012 

0162 

REF 

1 



0163 

REP 

4 

LAST 

1012 

0164 

REP 

2 

LAST 

1014 


«<NO Y,z TRANS, NO QUAD PAILS) 

45HCT 

IT, 2774 

11*561 0 

RfORD 

OCS 

WU 

17,2775 

3 4712 1 


GAP 

CNE 

17,2776 

1 3000 0 


TCP 

♦2 

17,2777 

3 4711 1 


CAP 

TWO 

17,3000 

55*517 1 


TS 

RINDEX 

17,3001 

11*630 1 


CCS 

ACORBD 

17,3002 

1 3073 1 


TCP 

bdroll 

17,3003 

1 3073 1 


TCP 

bdroll 

17,3004 

1 3005 0 


TCP 

♦1 

17,3005 

11*626 0 

ACRCLL 

CCS 

RACPAII, 

17,3006 

1 3012 0 


TCP 

RAFAIL 

17,3007 

1 3022 0 


TCP 

RXLNS 

17,3010 

1 3014 0 


TCP 

HCFAIL 

17,3011 

1 3022 0 


TCP 

RXLNS 

17,3012 

3 4334 1 

RAFAIL 

CAP 

NINE 

17,3013 

1 3024 0 


TCP 

TABRCCM 

IT, 3014 

3 5656 1 

HCFAIL 

CAP 

twelve 

17,3015 

1 3024 0 


TCP 

tabrccm 

17,3016 

00000 1 

XLNlNDx 

DEC 

0 

17,3017 

00001 0 


DEC 

1 

17,3020 

00002 0 


DEC 

2 

17,3021 

00000 1 


DEC 

0 


CHECK FOR ROLL CCM4ANDS 


PLAO FOR AC OR BD OUAD SELECTION FOR 
ROLL CCK-MNDS 
+ , +0 = BD ROLL 
-0 = AC ROLL 


CHECK POR REAL FAIUJHES 
CN AC QUADS 


QUAD FAILURE WILL GET 
1-JET OPERATION 


INDUCES FOR TRANSLATION 


R0169 TABLE LOCK UP TOR AC-ROLL COMANDS WITH AND WITHOUT Y-TRANSLATICN AND ACajAD FAILURES PRESENT 
R01T1 BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTICN OP THE ROLL 


0172 REF 

0173 REP 

0174 REP 

0175 REF 

0176 REP 

0177 REP 

0178 REF 


REF S LAST 1011 
REP 3 LAST 1013 
REP 3 LAST 1014 
REF 234 LAST 1013 
REP 1 


0178 REF 3 LAST 987 17,3030 

R0179 CHECK for Z-TRANSt ATICNS CN BD 


17.3022 51*515 1 RXLNS INDEX 

17.3023 3 2705 1 CA 

17.3024 6 1517 0 WBrCOM AD 

17.3025 50 000 1 INDEX 

17.3026 3 3155 0 CA 

17.3027 7 3174 1 HA SC 

17,3030 55*451 1 TS 


INDEX YNDX 


XLNNPX 
R INDEX 
A 

RTABUB 

ACRJBTS 

RWOBDl 


NO AC QUAD FAILURES 
INCLUDE *,-,0, Y-TRANSIATICN 




= 3760 OCT 


REP 4 LAST 1011 

17,3031 

3 

1516 

1 

BDzCHECK CA 

ZNDX 

REP 1 

17,3032 

0 

0006 

1 

Extend 


17,3033 

6 

3065 

1 

BZ'*' 

NOBDZ 


NO Z-TRANSI.ATICN 


I 


I 
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P0183 



TABLE LOOK UP FOR BD Z-TRANSLATICN WITH AND WITHOUT REAL 

R0185 

IBLE AS LONG AS ROLL COMMANDS CAN BE 

SATISFIED WITH THE AC ROLL JI 

R018T 

COMMANDS 

= 0 (WITH Z-TRANSLATICN) AND IP TAU = 0, THEN 

INCLUDE THr 

RO109 

roll Cat-WND = 0, and IP TAU NZ, THEN IGNORE THE BD Z-TRANSLATICN 

0190 

REF 

6 

LAST 1012 

IT, 3034 

11«627 

1 

CCS 

RBDFAIL 

0191 

REF 

34 

LAST 1011 

17,3035 

3 6214 

0 

CAP 

THREE 

0192 




IT, 3038 

1 3040 

1 

TCP 

*2 

0193 

REF 

31 

LAST 982 

IT, 3037 

3 6211 

0 

CAP 

SIX 

0194 

REF 

5 

LAST 1014 

17,3040 

51«518 

1 

INDEX 

ZNDX 

0195 

REP 

1 


IT, 3041 

6 3016 

0 

AD 

XLNiNDX 

0196 

REF 

235 

LAST 1014 

IT, 3042 

50 000 

1 

INDEX 

A 

0197 

REF 

1 


IT, 3043 

3 3176 

1 

CA 

yztable 

0198 

REF 

1 


17,3044 

7 3207 

0 

MASK 

BDZJETS 

0199 

REF 

4 

LAST 1014 

17,3045 

6 1451 

0 

AD 

WORDl 

0200 

REP 

31 

LAST 1010 

17,3046 

55*502 

0 

TS 

T5TEMP 

0201 




IT ,3047 

0 0006 

1 

extend 


0202 

REP 

46 

LAST 1012 

17*3050 

T 4704 

1 

mp 

BIT7 

0203 

REF 

1 


17,3051 

6 6061 

0 

AD 

=-4 

0204 

REF 

2 

LAST 106 

IT, 305 2 

55*522 

1 

TS 

NRJETS 

0205 




17,3053 

0 0006 

1 

EXTEND 


0206 

REF 

1 


17,3054 

1 3060 

0 

BzP 

TAUCHECK 

0207 

REF 

32 

LAST 1015 

17,3055 

3 1502 

1 

ACRBDZ CA 

15 TEMP 

0208 

REF 

5 

LAST 1015 

17,3058 

55*451 

1 

TS 

RWORDi 

0209 

REP 

1 


17,3057 

1 3321 

0 

TCP 

RCLLTK* 

0210 

REP 

7 

LAST 1014 

17,3080 

11«S61 

0 

TAUCHECK CCS 

TAU 

0211 

REF 

2 

LAST ’014 

17,3061 

1 3065 

0 

TCP 

NCBDZ 

0212 

REF 

1 


IT, 3082 

1 3055 

0 

TCP 

ACRBDZ 

0213 

HEP 

3 

LAST 1015 

17,3063 

1 3065 

0 

TCP 

NCBDZ 

0214 

REP 

2 

LAST 1015 

17,3064 

1 3055 

0 

TCP 

AChBDz 

0215 

REP 

6 

LAST 1015 

17,3065 

3 1451 

0 

NCBDZ CA 

RWORDi 

0216 




17,3086 

0 0006 

1 

Extend 


0217 

REP 

47 

LAST 1015 

17,3067 

T 4704 

1 

mp 

BITT 

0218 

REP 

1 


17,3070 

6 TT15 

0 

AD 

=-2 

0219 

REF 

3 

LAST 1015 

17 , 3071 

55*522 

1 

TS 

NRJETS 

0220 

REF 

2 

LAST 1015 

IT, 3072 

1 3321 

0 

TCP 

rcjatime 


20’35 OCT. 28,1968 DAPCSM .195 PAGE 1015 

UffiR«S PAGE NO. 6 Be S3 

auAD FAILURES. Z-TRANSLATION WILL BE POSS- 
CRIlERICN . . IP THE RESULTANT NET ROLL 


= 3417 OCT 

ADD TO ROLL COMMANDS 

IF POSSIBLE. MUST CHECK TAU FIRST 


DETERMINE THE NET ROLL COWAND WITH 

Z-TRANSLATICN ADDED CN 

NET NO. OP + ,- ROLL JETS CN 


Z-TRANSLATICN ACCEPTED EVEN THO WE MAY 

have introduced an undbsireable rol 

BRANCH TO JET CN-TIME CALCULATIONS 


z-transiaticn not accepted 


Branch TO JET CN-TIME CAICUIATICN 



20*35 OCT- 28,1988 DAPCSM .195 PAGE 1016 




*S»«LB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
JET SELECTION LOGIC 
K> OUAD SELECTION FOR ROLL COMMANDS 


USBR«S PAGE NO. T Efl S3 


•222 

HEP 

T 

LAST 1015 

•223 

REP 

1 


•224 

REP 

1 


022S 

REP 

1 


0226 

RH* 

2 

LAST 1016 

0227 

REP 

8 

LAST 1014 

0228 

REP 

1 


0229 

REP 

5 

LAST 1014 

0230 

REP 

2 

LAST 1016 

0231 

REP 

6 

LAST 1015 

0232 

REP 

4 

LAST 1014 

0233 

REP 

4 

LAST 1014 

0234 

REP 

236 

LAST 1015 

0235 

REP 

2 

LAST 1014 

0236 

REP 

1 


023T 

REP 

T 

LAST 1015 

0238 

0239 

REP 

6 

LAST 1014 

0240 

HEP 

1 


0241 

REP 

7 

LAST 1014 

0242 

0243 

IBP 

35 

LAST 1015 

0244 

REP 

32 

LAST 1015 

0245 

REP 

7 

LAST 1016 

0246 

REP 

2 

LAST 1015 

0247 

REP 23T 

LAST 1016 

0248 

REP 

2 

LAST 1015 

0249 

REP 

1 


0250 

REP 

8 

last 1018 

0251 

0252 

REP 

33 

LAST 1015 

0253 

REF 

35 

LAST 993 

02S4 

REF 

2 

LAST 1015 

0255 

0256 

REP 

4 

LAST 1015 

0257 

REP 

1 


0258 

REP 

34 

LAST 1016 

0259 

RHP 

9 

LAST 1016 

0260 

REP 

3 

LAST 1015 

0261 

REP 

8 

LAST 1015 

0262 

REP 

2 

LAST 1016 

0263 

RHP 

1 


0264 

RHP 

3 

LAST 1016 

0265 

RHP 

2 

LAST 1016 


I 


17,3073 

11*627 1 

BDftOLL 

CCS 

RBDPAIL 

17,3074 

1 3100 1 


TCP 

RBFAIL 

17,3075 

1 3104 0 


TCF 

RZXLNS 

17,3076 

1 3102 0 


TCF 

FDPAIL 

17,3077 

1 3104 0 


TCF 

RZXLNS 

17,3100 

3 4334 1 

RBFAIL 

CAF 

NINE 

17,3101 

1 3106 1 


TCP 

TftBRzCND 

17,3102 

3 5658 1 

HDFAIL 

CAF 

TWELVE 

17,3103 

1 3106 1 


TCF 

tabrzq® 

17,3104 

51*516 1 

RZXLNS 

INDEX 

ZNDX 

17,3105 

3 2705 1 


CA 

XLNNDy 

17,3106 

6 1517 0 

TOBRzO® ad 

R INDEX 

17,3107 

50 000 1 


INDEX 

A 

17,3110 

3 3155 0 


CA 

RTABLE 

17,3111 

7 3175 0 


MASK 

BDRJETS 

17,3112 

55«451 1 


TS 

HWORDi 

17,3113 

3 1515 1 

ACYCHECk ca 

YNDX 

17,3114 

0 0008 1 


Extend 

17,3115 

1 3147 1 


BZP 

NOACY 

17,3116 

11«6 26 0 


CCS 

RACEAIL 

17,3117 

3 6214 0 


CAP 

THREE 

17,3120 

1 3122 1 


TCP 

♦2 

17,3121 

3 6211 0 


CAP 

SIX 

17,3122 

51*515 1 


INDEX 

YNDX 

17,3123 

6 3016 0 


AD 

XLNjNDx 

17,3124 

50 000 1 


INDEX 

A 

17,3125 

3 3176 1 


CA 

yzdable 

17,3126 

7 3210 0 


mask 

acyjets 

17,3127 

6 1451 0 


AD 

RWORDj 

17,3130 

55*502 0 


TS 

T51EMP 

17,3131 

0 0006 1 


EXTEND 


17,3132 

7 4707 1 


MP 

BIT4 

17,3133 

6 8061 0 


AD 

=-4 

17,3134 

55«522 1 


TS 

NRJETS 

17,3135 

0 0006 1 


EXTEND 


17,3136 

1 3142 1 


BZF 

TAUCHQc 

17,3137 

3 1502 1 

BDRACz 

CA 

T5TE4P 

17,3140 

55*451 1 


TS 

RYCRDi 

17,3141 

1 3321 0 


TCP 

RCI-LTI^ 

17,3142 

1 1*56 1 0 

TAUCBCk 

CCS 

TAU 

17,3143 

1 3147 1 


TCF 

NOACY 

17,3144 

1 3137 0 


TCP 

BDRACz 

17,3145 

1 3147 1 


TCF 

NOACY 

17,3146 

1 3137 0 


TCF 

BDRACz 


NO BO FAILURES 
♦ ,-,0 Z-TRANSLATICN PRESENT 


= 34017 OCT 


ANY Y-TRANSLATICN 


NO Y-TRANSLATICN 


= 34360 OCT 




for explanation see coding on htobie 


no. op net roll jets 
if nrjets = o 

Y-THANSLATICN ACCEPTED 

BRANCH to JET CN-TIM3 CALCULATIONS 


















R02T3 

R02T5 

R02TT 

R02T8 

RO280 

R0282 

R0283 

R0285 

R028T 

R0288 

R0290 

R0291 

R0293 

R0294 

R029S 

R0296 

B0297 

R0298 

R0299 

R0301 

R0303 

R0305 

A030G 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 


Assaeus vision 2 4 8 op aoc program census nr nasa 2021111-041 20*35 oor. 28,1968 dapcsw . 195 pace 10 i. 

jet selection logic 

USBRxS page NO. 9 Be S3 

TABLE FOB ROLL, Y AND Z-TRANSLATICN CCK4ANDS 

asSS i™ 

-ssvyrjsss sr- sbwsrk! s ssszas rwyssrsar 

WORD MIKE up rmble 

TO AC ® 80 selection, have been cobined into cnb table 

INO TO AC ROLL HAS THE FOLLOWING INTBRPRB'pVriCM. 

BITS 9,10,11 ARK CODED TO GIVE THE NET ROLL TOR0UE FOR THE WORD SELECTED THE CODING IS 
BIT NO. 11 10 9 NO. OP ROLL JETS 


THE WORD CORRESPCND- 


0 0 0 
0 0 1 
0 10 
Oil 
10 0 


-2 

-1 

0 

♦1 

+2 


^^THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATKN TABLE WHTCH HA<; thP tvpp rtf 

CODING AS ABCVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING TOUR. 

(AsTBoTTOrvir 1 .^ ^; MS A SIMIL,AR ^^TICN, except THAT BITS 12, 13, 14 ABE CODED 

ROLL TRANS OUADFAIL BIAS 

0 
0 
0 

+-YI 4-Z) 3 

+Y( +Z) 3 

+Y( +Z> 3 

-YI-Z) e 

-Y(-Z) 6 

-Y(-Z) 6 

9 


IT, 3155 

11000 1 RIABLJB 

OCT 

11000 

0 

17,3156 

22125 1 

OCT 

22125 

♦ 

IT , 3157 

00252 1 

OCT 

00 252 

_ 

17,3160 

11231 1 

OCT 

11231 

0 

17,3161 

15421 1 

OCT 

15421 

♦ 

17,3162 

04610 1 

OCT 

04610 

_ 

17,3163 

11146 1 

OCT 

11146 

0 

17,3164 

15504 1 

OCT 

15504 

♦ 

IT, 3165 

04442 1 

OCT 

04442 

_ 

17,3166 

11000 1 

OCT 

11000 

0 

IT, 3167 

15504 1 

OCT 

15504 

*■ 

17,3170 

04610 1 

OCT 

04610 

_ 

17.31T1 

11000 1 

OCT 

11000 

0 

IT, 3172 

15421 1 

OCT 

15421 

4 - 

17 , 3173 

04442 1 

OCT 

04442 





A(B) 

A(B) 

A(B) 

CCD) 

CCD) 

CCD) 


9 

12 

12 

12 
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L JET SELECTION LOGIC USER.S PAGE NO. 10 B6 S3 

R0322 RTABLB MASKS - 


0323 

0324 


17.3174 03760 0 ACrJETS OCT 03760 

17.3175 34017 0 BDRJETS OCT 34017 



Ass^eis REVISU* 249 OP AGO PROGRAM COUS^JS by NASA 2021111-041 20'35 OCT. 28,1988 DA PC 34 . a95 PACE i 02 0 

JET select I (H logic 


UffiH«S PACE NO. 11 E6 S3 


f, Z TRANSLATION TABLE 


CWCE AC OR RD ROLL IS fflLEClH) WE OOAD PAIR WHICH IS NOT BEING USED TO SATISFY THE commands may bp 

’ 5K L^^P N '° ™v SIj4TrCN «***«*- Ha7BVKH > WE MUST MAKE SURE THAT ROLL COMMANDS Affi^ATISPIED 
mEREP ® 2 . Y -Z thanslaticns frcm this table will be ignored if THE net ROLL TOROuP OP -ihp 
9?®*® WORD IS ZERO AND THE ROLL COMANDS ARE NCN-ZERO. THIS SITUATION wSSbcCUR^TL^^?^^ 
COWER S IMJLTANEOJS +R +Y -Z CO-T4ANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL ’ ’ 

ABOVE FA ILmiE 1HB LOOIC > 1HE Y - Z TEWNSLATIOI TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE 

ADO^TO ^ TCK1B INC UI® ED BY Z-TRAN STATIONS. THE WORD SELECTED CAN THEN BE 

ADDED TO THE AC-RCLL WORD AND THE RE&JL1ANT ROLL TORQUE DETERMINED FROM THE COBINED WORD SIMILIARLY BITS 
12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSIATICNS WHEN BD-ROLL iTsElS 


TRANSLATICN QUADFAIL BIAS 


17.3176 

17.3177 

17.3200 

17.3201 

17.3202 

17.3203 

17.3204 

17.3205 

17.3206 


11000 1 YZTABLE OCT 


11231 1 
11148 1 
11000 1 
04610 1 
15504 1 
11000 1 
15421 1 
04442 1 


YZ-TABLE MASKS- 


17,3207 

17,3210 


03417 0 BDZJETS OCT 
3436 0 0 ACYJETS OCT 


11000 

0 


11231 

♦ZUY) 


11146 

-Z(-Y) 


11000 

0 

B(A) 

04610 

+Z( +Y) 

B(A) 

15504 

-Z(-Y) 

B(A) 

11000 

0 

DCC) 

15421 

*7J +Y) 

DOC) 

04442 

-Z(-Y) 

D(C) 

03417 



34360 




ADDITIONAL CONSTANTS 


0359 REF 4 LAST 914 7715 

0360 REF 1 6061 







P0361 

R0382 
R0364 
R0388 
R036B 
R03B9 
R03T1 
R03T2 
R03T4 
R0375 
R03TT 
R03T9 
R0381 
R0383 
HO 385 

R0386 


AsseeLE REVISION 249 OP AOC PROGRAM colossus by NASA 2021111-041 
Jftt ELECTION LOGIC 

CALCULATION OP JET 0N-TIM3S 


20’35 OCT. 28,1966 DAPCSM .195 PAGE 1021 
USEtteS PACE NO. 12 E6 S3 


■n* POTATION COWANDS (TAU’S) . WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC CM THE BASIS OP SINGLE JET 
OPERATION MUST NOW BE UPDATED BY THE ACTUAL NUMBER OP JETS TO BE USED IN SATISFYING THESE CCLWWDS _ TAU rtJST 
ALSO BE D0CRE»£NTED ACCOEDING TO THE EXPECTED TOROUE GENEBATSD BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT 

“^Ik'orDSR TO MAINTAIN ACCURATE KNOWLEDGE CP VEHICLE ANGULAR RATES, WE HIST ALSO PROVIDE EXPECTED FIRING TINES 
q At co IN TERMS CP l-JKT 0?2RATICN) FOR THE RATE FILTER. iji „ 

NOW THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MIST 

l " P0 ^L D !L nomTICNS HAVE FINISH® WE MUST PRO/ ICE CHANNEL INFORMATION TO THE TB PROGRAM TO CONTINUE CN WITH 
WHmS IN WE NEXT SECTICN. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR U5SS 
IMPULSE (14MS) ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OP THE 15 PROGRAM FOR 
INITIALIZATION^ CPNEwCCMMANDS. MOREO/ER, a 14MS CN-TIMB will be add® to any rotational 
COMMANDS CENERATS) BY THE (MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE 
ACTIVB FOR AILEAST ONE CYCLE CP THE T5 PROGRAM ( .lSEC) 

PITCH jet CN-TI(« calculation 


0387 

RHP 

6 

LAST 1011 

IT, 3211 

0388 

RHP 

1 


IT ,3212 

0389 




17,3213 

0390 

RHP 

1 


IT, 3214 

0391 

REP 

2 

LAST 106 

IT, 3215 

0392 

REP 

1 


17,3216 

0393 

RHP 

3 

LAST 1012 

IT ,3217 

0394 

REP 

4 

LAST 1021 

17,3220 

0395 

REP 

7 

LAST 1021 

17,3221 

0396 




17,3222 

0397 

REP 

5 

LAST 1021 

IT, 3223 

0398 

HEP 

1 


17,3224 

0399 

REP 

3 

LAST 987 

17,3225 

0400 

REP 

1 


IT, 3228 

0401 




17,3227 

0402 

REP 

1 


17,3230 

0403 

REP 

6 

LAST 1021 

IT, 3231 

0404 

REP 

1 


IT, 3232 

0405 

HEP 

3 

LAST 1021 

17,3233 

0406 




IT, 3234 

0407 

REP 

8 

LAST 1021 

17,3235 

0408 

REP 

1 


IT, 3238 

0409 

REP 

4 

LAST 1021 

IT, 3237 

0410 

HEP 

1 


17,3240 

*0411 





0412 

REP 

5 

LAST 1021 

17,3241 

0413 

REP 

2 

LAST 1010 

17 , 3242 

0414 




IT, 3243 

0415 

REP 

1 


17,3244 

0416 

REP 

3 

LAST 1021 

IT, 3245 


11*562 

0 

PITCHTLM CCS 

TSUI 

1 3221 

1 


TCP 

PTAUPOS 

1 3215 

0 


TCP 

♦2 

1 3217 

1 


TCP 

PDAUNEG 

55*550 

1 


T3 

DFTi 

1 3417 

1 


TCP 

PBYPASS 

4 1523 

0 

PTAUNEG 

CS 

NPJETS 

55*523 

0 


TS 

NPJETS 

3 1562 

1 

PTAUPOS 

CA 

TAUl 

0 0006 

1 


EXTEND 


5 1523 

1 


INDEX 

NPJETS 

7 3400 

1 


MP 

NJET 

55*461 

1 


TS 

BLASTl 

6 3333 

1 


AD 

=-.lSEC 

0 0006 

1 


EXTEND 


6 3241 

0 


BzMP 

AD14MSP 

51*523 

1 


INDEX 

NPJETS 

3 3334 

0 


CA 

DPIMAX 

55*550 

1 


TS 

DPTl 

4 0000 

0 


COM 


27*562 

0 


ADS 

TAUI 

3 3335 

1 


CAF 

r+.lSEC 

55*461 

1 


TS 

BLASTl 

1 3404 

0 


TCP 

ASMBLWP 

4 1461 

1 

AD14MSP 

CS 

BLASTl 

6 3340 

0 


AD 

=14MS 

0 0006 

1 


extend 


6 3247 

0 


BzfMP 

pbiastck 

3 3340 

0 


CAF 

=14MS 


NO PITCH ROTATION 
COMMANDS 


THE PITCH CN-TIMB IS GREATER THAN .1 SEC 


UPDATE TAU1 

LIMIT THE LENGTH OF PITCH ROTATION 
COMMANDS TO 0-1 SEC SO THAT ONLY 
X-TRANStATICNS WILL CONTINUE CN SWITCH 
OVER TO TVC 

SEE IF JET CN TIME IESS THAN 
MINIMJM IMPUI.SE TIME 

IP SO LIMIT MINIMUM ON TIME TO 14 MS 


L 


ASSENBLB REVISION 249 OP AQC PROGRAM COLOSSUS BY NASA 2021111-041 
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20*35 OCT. 28,1968 DAPCS4 .195 PAGE 1022 


0417 REP t LAST 1021 17,3246 

0418 RH' 7 LAST 1022 17,3247 

°* 19 17,3250 

0420 REP 7 LAST 1021 17,3251 

0421 REP 4 LAST 1021 17,3252 

0422 REP 9 LAST 1021 17,3253 

0423 REP 2 LAST 1021 17,3254 


55«461 

1 

TS 

BLASTl 

3 1461 

0 

PBLASTQC ca 

BLASTl 

0 0006 

1 

EXTBTO 


7 1523 

0 

HP 

NPJETS 

23«550 

0 

LXCH 

DFTl 

55«562 

0 

TS 

WU1 

1 3404 

0 

TCP 

AS-BLwp 


USER.S PAGE NO. 13 Eg S3 


THE PITCH COMMANDS will BE COMPLETED 
WITHIN THE TS-CYCLE Tim 
POR USE IN UPDATING RATE FILTER 
ZERO TAU1 (ACC CONTAINS ZERO) 




ASSaeLB REVISION 249 OP A OC PROGRAM COLOSSUS By NASA 2021111-041 
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P0424 


0425 

REF 

0426 

REF 

042T 


0428 

REF 

0429 

REF 

0430 

REF 

0431 

REF 

0432 

REF 

0433 

REP 

0434 


0435 

REP 

0436 

REF 

043T 

REP 

0438 

REF 

0439 


0440 

REF 

0441 

REF 

0442 

REP 

0443 

REF 

0444 


0445 

REF 

0446 

REF 

0447 

REF 

0448 

REF 

0449 

REP 

0450 

REP 

0451 


0452 

REP 

0453 

REF 

0454 

REF 

0455 

REP 

0456 


0457 

REP 

0456 

HEP 

0459 

REP 

0460 

. REP 



TAW JET CN-TD® CALCULATION 


6 

LAST 

1012 

17,3255 

11«583 

1 



17,3256 

1 3265 




17,3257 

1 3281 

1 



17,3280 

1 3283 

2 

LAST 

106 

17,3261 

55*551 

1 



17,3262 

1 356 3 

2 

LAST 

1013 

17,3263 

4 1524 

3 

■LAST 

1023 

17,3264 

55*524 

7 

LAST 

1023 

17,3265 

3 1563 




17,3266 

0 0006 

4 

LAST 

1023 

17,3267 

5 1524 

2 

LAST 

1021 

17,3270 

7 3400 

3 

LAST 

987 

17,3271 

55*463 

2 

LAST 

1021 

17,3272 

6 3333 




17,3273 

0 0006 

1 



17,3274 

6 3305 

5 

LAST 

1023 

17,3275 

51«5 24 

2 

LAST 

1021 

17,3276 

3 3334 

3 

LAST 

1023 

17,3277 

55«551 




17,3300 

4 0000 

8 

LAST 

1023 

17,3301 

27*56 3 

2 

LAST 

1021 

17,3302 

3 3335 

4 

LAST 

1023 

17,3303 

55«463 

1 



17,3304 

1 35 5 0 

5 

LAST 

1023 

17,3305 

4 1483 

4 

LAST 

1021 

17,3306 

6 3340 




17,3307 

0 0006 

1 



17,3310 

6 3313 

5 

LAST 

1023 

17,3311 

3 3340 

6 

LAST 

1023 

17,3312 

55«463 

7 

LAST 

1023 

17,3313 

3 1463 




17,3314 

0 0006 

6 

LAST 

1023 

17,3315 

7 1524 

4 

LAST 

1023 

17,3316 

23*551 

9 

LAST 

1023 

17,3317 

55*563 

2 

LAST 

1023 

17,3320 

1 35 5 0 


1 

YAWTD® 

CCS 

WU2 

1 


TCP 

YTAUPOS 

0 


TCP 

*2 

1 


TCP 

YTALNEG 

0 


TS 

DFT 2 

0 


TCP 

YBYPASS 

1 

YTAUNEG 

CS 

NY JETS 

1 


TS 

NYJBTS 

0 

YTAUPOS 

CA 

TAU2 

1 


EXTEND 


0 


INDEX 

NYJBTS 

1 


MP 

NJET 

0 


TS 

BLAST 2 

1 


AD 

=-.lS3C 

1 


EXT©ro 


1 


BzMF 

AD 14 MSY 

0 


INDEX 

NY JETS 

0 


CA 

DPUM4X 

0 


TS 

DPT2 

0 


COM 


1 


ADS 

TAU2 

1 


CAP 

=+.lSEC 

0 


TS 

BLAST2 

0 


TCP 

AS*LWY 

0 

AD 14 MSY 

CS 

RLAST 2 

0 


AD 

=14MS 

1 

# 

EXTEND 


0 


BzMF 

YBLASTCK 

0 


CAP 

=14MS 

0 


TS 

BLAST2 

1 

YBLASTCK 

CA 

BLAST 2 

1 


EXTEND 


1 


MP 

NYJBTS 

1 


LXCH 

DFT 2 

1 


TS 

TAU 2 

0 


TCP 

ASM3LWY 


20 ’35 OCT. 29,1968 DAPCSM .195 PAGE 1023 
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NO YAW ROTATION COMMANDS 


YAW COMANDS WILL LAST LONGER THAN .1SEC 


DECREMENT TAU2 

LIMIT THE LENGTH OP YAW ROTATION COMMAND 
TO 0.1 ®C so THAT ONLY X -TRANSLATION 
WILL CONTINUE ON SWITCH OVER TO TVC 

SEE IF JET CN-TIMB LESS THAN 
MINIMUM IMPUI.SE TIME 

IF SO, LIMIT MINIMUM CN-TIME TO 14 MS 


YAW COMMANDS WILL BE COMPLETED WITHIN 
THE IS CYCLE TIME 


ZERO TAU2 


«&■ ASSBBLB REVISION 249 OF AOC PROGRAM COLOSSUS BY NASA 2021111-041 
L JET SELECTION LOGIC 


P04S1 


0483 SEP 

0484 

0485 REF 
0468 USE 
046T REP 
0468 REP 
0460 REP 

0470 

04T1 

0472 

0473 

0474 

0475 

0476 

0477 


0478 

0479 

0480 

0481 

0482 
AO 483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 


ROLL CN-TIf-E CALCULATICN- 


0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 


REP 

REP 


REP 


REP 

REP 

REP 

REP 

REP 

REF 

HEP 


9 

LAST 1016 

17,3321 

11*581 0 

ROLLTIM0 CCS 

TAU 

1 


17,3322 

1 3341 0 


TCP 

rblast 



17,3323 

1 3325 1 


TCP 

♦2 

2 

LAST 1024 

17,3324 

1 3341 0 


TCP 

RBLAST 

0 

LAST 1017 

17,3325 

51*522 0 


INDex 

NRJETS 

3 

LAST 1023 

17,3328 

3 3334 0 


CA 

DPIMAX 

3 

LAST 977 

17,3327 

55*547 1 


TS 

DPT 

1 


17,3330 

1 3543 1 


TCP 

RBYPASS 



17,3331 

77037 0 


DEC 

-480 



17,3332 

77277 0 


DEC 

-320 



17,3333 

77537 0 

=-.lSEC 

DEC 

-160 



17,3334 

00000 1 

DPIWX 

DEC 

0 



17,3335 

00240 1 

=+. 1SEC 

DEC 

160 



17,3336 

00500 1 


DEC 

320 



17,3337 

00740 1 


DEC 

480 



17,3340 

00027 1 

=I4MS 

DEC 

23 

10 

LAST 1024 

17,3341 

3 1561 1 

rblast 

CA 

TAU 



17,3342 

0 0006 1 


EXTEND 

7 

LAST 1024 

17,3343 

5 1522 0 


INDEX 

NRJETS 

3 

LAST 1023 

17,3344 

7 3400 1 


MP 

NJBT 

2 

LAST 100 

17,3345 

55«457 1 


TS 

BLAST 

3 

LAST 1023 

17,3346 

6 3333 1 


AD 

=-.lS8C 



17,3347 

0 0006 1 


EXTEND 

1 


17,3350 

6 3361 0 


B2MP 

AD14MSR 

8 

LAST 1024 

17,3351 

51«S22 0 


INDEX 

NRJETS 

4 

LAST 1024 

17,3352 

3 3334 0 


CA 

DPTMAx 

4 

LAST 1024 

17,3353 

55*547 1 


TS 

DPT 



17,3354 

4 0000 0 


CCM 


11 

LAST 1024 

17,3355 

27*561 0 


ADS 

1»U 

3 

LAST 1023 

17,3356 

3 3335 1 


CAP 

=«-.lS8C 

3 

LAST 1024 

17,3357 

55*457 1 


TS 

BLAST 

1 


17,3360 

1 3424 1 


TCP 

Asmum 

4 

LAST 1024 

17,3361 

4 1457 1 

AD14MSR 

CS 

blast 

6 

LAST 1023 

17,3362 

8 3340 0 


AD 

=14MS 



17,3363 

0 0008 1 


EXTEND 


1 


17,3384 

6 3367 0 


BZMP 

RBLASTOC 

7 

IAST 1024 

17,3365 

3 3340 0 


CAF 

= 14MS 

5 

LAST 1024 

17,3366 

55*457 1 


TS 

blast 

6 

LAST 1024 

17,3367 

3 1457 0 

RBL4STCK CA 

blast 



17,3370 

0 0006 1 


EXTEND 


9 

LAST 1024 

17, 3371 

7 1522 1 


MP 

NRJETS 

5 

LAST 1024 

17,3372 

23*547 0 


LXCH 

DPT 

12 

I A ST 1024 

17,3373 

55*561 0 


TS 

WU 

2 

LAST 1024 

17,3374 

1 3424 1 


TCF 

AS"WI9TR 
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UPDATE DPT EVEN THO NO ROLL COMANDS ARE 
PRESENT 


= -.3SEC 
= -.2SBC 
= -.1®C 

0 

= +.1SBC 
= *.2SEC 
= +.3SEC 
=14MS 


blast IS AN INTERMEDIATE VARIABLE 
USED IN DETERMINING THE JET (X-TIMES 


THE ROLL ROMTICN WIIL LAST LONGER 

than the t5 cycle time 


LIMIT THE LENGTH OP ROLL ROTATION 
COWANDS TO o.l SEC SO THAT ONLY Y-Z 

toanslatiql cqwands ccntinu.’ 

SEE IP THE JET CN-TINE LESS THAN 
MIN LMM IMPULSE TIME 


IP SO, LIMIT MINIUM ON-TI"*? TO 14 MS 


ZERO 1AU 
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JET SELECTION LOGIC 


0507 

1T.33T5 

65252 

1 

0508 

IT, 3378 

57777 

1 

0509 

1T.337T 

40000 

0 

0510 

11,3400 

00000 

1 NJBT 

0511 

17,3401 

37777 

1 

0512 

17,3402 

20000 

0 

0513 

17,3403 

12525 

0 


USERaS PAGE NO. 18 B« S3 


DEC 

-.333333 

= -1/3 

DEC 

-.500000 

= -1/2 

DEC 

-.999999 

a -1 (NEOMAX) 

DEC 

0 


DEC 

.999999 

= +1 (POSAAX) 

DEC 

.500000 

= +1/2 

DEC 

.333333 

= +1/3 




ASSHOLE RSVIS,W 2A9 W AOC PROGRAM COLOSSUS By NASA 2021111-041 
JET SELECT I CM LOGIC 


P0514 

ROS16 

KOS1T 

R0519 

R0520 

0521 

0522 

0523 

0524 

0525 
0528 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 


20*35 OCT. 28,1968 DAPCSM .195 PAGE 1026 
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ipaw 1 ^ pLsent 00833 *” TO repwcb 1HESE By ne» co+mnds WHICH 

CORRESPOND [ wTroMT KW s" Ar^CtKPtE^ ^ ®' ERA1H> ^ ST ® ED ^ REPLAC®>ENT OP THE CHANNEL COMMANDS WHEN THE 


®®RATKN OP the SECOND PITCh(X-TRANS) WOFB. . .PWORD2 


HEP 
HEP • 

REP 
REP 
REP 
REP 238 
REP 
REP 
REF 
REP 


LAST 1016 


LAST 1028 
LAST 1012 
LAST 1016 
LAST 1016 
LAST 1013 
LAST 1012 
LAST 


REP 3 
REP 3 
HEP 185 
REP g 
REP 2 


100 


LAST 1012 
LAST 1026 
LAST 1007 
LAST 1022 
LAST 1026 


IT, 

IT, 

IT, 

IT, 

IT, 

IT, 

IT, 

IT 

IT, 

IT, 

IT, 


3404 

3405 
3408 
3407 

3410 

3411 

3412 

3413 

3414 

3415 

3416 


17,3417 
IT, 3420 
17,3421 
IT, 3422 
17,3423 


11«628 
1 3413 
1 3410 
1 3413 
51«513 
3 2705 
50 000 
3 2741 
7 2760 
55«454 
1 3255 

3 1453 
55«454 
3 4714 
55«461 
1 3255 


AS*S3LffP 


1 PPX2 


CCS 

TCP 

TCP 

TCP 

INDEX 

CA 

INDEX 

CA 

MASK 

TS 

TCP 


PBYPASS CA 
TS 
CAP 
TS 
TCP 


RACFAIL 

PPX2 

♦2 

PPX2 

XNPX1 

XLNNDX 

A 

PYTABLE 

PJETS 

PWORD2 

yawtime 

PWORDi 

PWORD2 

ZERO 

BLASTl 

YAWTM3 


IP FAILURE CN AC ignore X- translation 


THE TB PROGRAM WILL LOAD PWOHD2 
UPON ENTRY 

THERE IS NO PWQRD2 





P053T 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 
0548 

054T 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 
055T 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 
056T 

0568 

0569 
0510 
05T1 
05T2 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 


USABLE REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
JET SELECTION LOGIC 

OSKRATICN OP WE SECOND ROLL <Y,Z> WORD ([WORD 2) 


*** 8 

REP 1 
REP 188 
REP 2 
HEP 7 
RBP 1 
HEP 187 
RHP 3 
RHP 1 


REP 9 
REP 6 
RBP 239 
REP 3 
REP 2 
HEP 3 


HEP 


LAST 1016 

LAST 1026 
LAST 100 
LAST 1016 

LAST 1027 
LAST 1027 


4 LAST 1014 
1 

2 LAST 1027 

9 LAST 1026 

1 

2 LAST 1027 


LAST 1027 
LAST 1026 
LAST 1026 
LAST 1016 
LAST 1014 
LAST 1027 


10 LAST 1027 
36 LAST 1016 


REP 33 
RBP 10 
REP 3 
RBP 240 
RBP 3 
HEP 2 
HEP 4 

HEP 3T 
HEP 3 
REP 10 
REP 7 
RBP 4 

REP 11 
REP 129 
RBP 6 
REP 4 


LAST 1016 
LAST 1027 
LAST 1016 
LAST 1027 
LAST 1016 
LAST 1016 
LAST 1027 

LAST 1017 
[AST 1017 
LAST 1024 
LAST 1024 
LAST 1024 

LAST 1027 
LAST 996 
LAST 1024 
LAST 1027 


17.3424 

17.3425 

17.3426 

17.3427 

17.3430 

17.3431 

17.3432 

17.3433 

17.3434 

17.3435 
17,3438 
17,3437 

17.3440 

17.3441 

17.3442 

17.3443 

17 . 3444 

17.3445 
17 , 3448 
IT, 3447 

17.3450 

17.3451 

17.3452 

IT, 3453 
17,3454 
IT, 3455 
17,3456 
1T.345T 

17.3460 

17.3461 
IT, 3462 

17.3463 

17.3464 

17.3465 

17.3466 

17.3467 

17.3470 

17.3471 

17.3472 

17.3473 

17.3474 

17.3475 
IT, 3476 
17,3477 


11«515 

0 

AEMHJ9R 

CCS 

YNDX 

1 3435 

1 


TCP 

AC3D2Y 

3 4714 

1 

N02Y 

CAP 

ZERO 

55-452 

1 


TS 

fWOTO2 

1 1-516 

0 


CCS 

ZNDX 

1 3500 

0 


TCP 

ACBD2Z 

3 4T14 

1 

N02Z 

CAP 

ZERO 

27-452 

1 


ADS 

WORD2 

1 3211 

1 


TCP 

PITCHTIM 

11-630 

1 

ACBD2Y 

CCS 

ACQRBD 

1 3453 

1 


TCP 

AC2Y 

1 3453 

1 


TCP 

AC2Y 

1 3441 

1 


TCP 

♦1 

11-626 

0 


CCS 

RACFAIL 

1 3426 

0 


TCP ■ 

N02Y 

1 3445 

0 


TCP 

♦ 2 

1 3426 

0 


TCP 

N02Y 

51—515 

1 


INDEX 

YNDX 

3 2705 

1 


CA 

X1MNDX 

50 000 

1 


INDEX 

A 

3 3155 

0 


CA 

rwble 

T 3174 

1 


MASK 

ACRJETS 

1 3427 

1 


TCP 

NO2Y +1 

11«6 26 

0 

AC2Y 

CCS 

RACFAIL 

3 6214 

0 


CAP 

WREB 

1 3457 

0 


TCP 

+2 

3 6211 

0 


CAP 

SIX 

51-515 

1 


INDEX 

YNDX 

6 3016 

0 


AD 

XLNlNDX 

50 000 

1 


INDEX 

A 

3 3176 

1 


CA 

YZTABIE 

7 3210 

0 


MASK 

ACYJETS 

55-452 

1 


TS 

IW0RD2 

0 0006 

1 


extend 


7 4707 

1 


MP 

BIT4 

6 7T15 

0 


AD 

=-2 

55«522 

1 


TS 

nrjets 

4 1457 

1 


cs 

blast 

6 3335 

1 


AD 

=+.lSEC 

0 0006 

1 


EXTEND 


T 1522 

1 


MP 

NRJETS 

3 0001 

0 


CA 

L 

2T«54T 

1 


ADS 

DPT 

1 3430 

1 


TCP 

NO2Y +2 
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CHECK FOR Y-TRANS 

CHECK FOR Z-TRANS 

IW0RD2 ASSBNBLED 

CAN DO Y-TRANS 

USING AC FOR ROLL 

USING AC AND AC HAS FAILED 

DITTO 

NO FAILURES, CAN DO Y 
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0582 

0583 

0584 

0585 
0588 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 


REP 5 LAST 1027 

REP i 

REP 2 LAST 1028 


REP 

REF 

REP 

REF 

REP 

REP 

REP 

REP 

REP 

REP 

REF 

REP 

REP 

REP 


8 

37 

34 

8 

4 

241 

4 
2 

5 

48 

4 
12 

8 

5 


LAST 1016 
LAST 1027 

LAST 1027 
LAST 1027 
LAST 1027 
LAST 1027 
LAST 1027 
LAST 1015 
LAST 1027 

LAST 1015 
LAST 1027 
LAST 1027 
LAST 1027 
LAST 1027 


REP 13 LAST 1028 
REF 130 LAST 1027 
REP 7 LAST 1027 
REP 2 LAST 1027 

REP 9 LAST 1028 
REP • 1 


REP 2 
REP 9 
REP t 
REP 242 
REP 4 
REP 2 
REP 3 

REP 11 
REP 6 
REP 108 
REP g 
REP 3 


LAST 1028 
LAST 1028 
LAST 1027 
LAST 1028 
LAST 1027 
LAST 1016 
LAST 1028 

LAST 1017 
LAST 1028 
LAST 1027 
LAST 1028 
LAST 1028 


17.3500 

17.3501 

17.3502 

17.3503 

17.3504 

17.3505 
17,3508 
17,35 07 

17.3510 

17.3511 

17.3512 

17.3513 

17.3514 

17.3515 

17.3516 

17.3517 

17.3520 

17.3521 

17.3522 

17.3523 

17.3524 
17,35 25 

.17,3526 

17,3527 

17.3530 

17.3531 
17,35 32 

17.3533 

17.3534 

17.3535 

17.3536 

17.3537 

17.3540 

17.3541 

17.3542 

17.3543 

17.3544 

17.3545 

17.3546 

17.3547 


11*630 1 
1 3531 1 
1 3531 1 
1 3504 
11*627 
3 6214 
1 3510 
3 6211 
51*518 

6 3016 
50 000 

3 3176 

7 3207 
27*452 
0 0006 
7 4704 
6 7715 
55*522 

4 1457 

6 3335 
0 0006 

7 1522 
3 0001 
27*547 
1 3211 


11*627 1 
1 3432 0 
1 3535 0 
1 3432 0 
51«516 1 
3 2705 1 
50 000 1 
3 3155 0 
7 3175 0 
1 3433 1 

3 1451 0 
55«452 1 
3 4714 1 
55*457 1 
1 3211 1 


ACBD2Z 


1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 


BDP 2 z 


RBYPASS 


CCS 

TCP 

TCP 

TCP 

CCS 

CAP 

TCP 

CAP 

INDEX 

AD 

INDEX 

CA 

MAac 

ADS 

EXTEND 

MP 

AD 

TS 

CS 

AD 

EXTEND 

MP 

CA 

ADS 

TCP 

CCS 

TCP 

TCP 

TCP 

INDEX 

CA 

INDEX 

CA 

m* 

TCP 


AC0RBD 

BDP2Z 

HDP2Z 

♦1 

RBDFAIL 

THREE 

♦2 

SIX 

ZNDx 

XINiNDx 

A 

YZTABLE 

bdzjets 

RPCTO2 

BIT7 

=-2 

NRJETS 

BLAST 

=*.1SEC 

NRJETS 

DPT 

PITCHTIM 

RBDPAIL 

N02Z 

♦2 

N02Z 

ZNDX 

XLNNDX 

A 

RWBLE 

BDRJETS 

1*02 Z t-1 


CA 

TS 

CAP 

TS 

TCP 


RtfORDi 

(WORD2 

ZERO 

BL4ST 

PITCHTIM 
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USING 8D-R0LL 

MUST CHECK FOR BD FAILURES 

USING AC FOR ROLL, CAN DO Z-TRANS 


USING BD-ROU, AND BD HAS FAILED 
DITTO 
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USSRaS PAGE NO. 20 


F0622 



GENERATION CP THE SECOND YAW 

0023 

REP 

10 

LAST 1028 

IT, 3550 

11*627 

0624 

HEP 

1 


IT, 3551 

1 3557 

0625 




IT, 355 2 

1 3554 

0626 

REP 

2 

LAST 1029 

IT, 3553 

1 3557 

0627 

REP 

6 

LAST 1013 

IT, 3554 

51*514 

0628 

REP 

8 

LAST 1028 

IT, 3555 

3 2705 

0629 

REP 

243 

LAST 1028 

IT, 3556 

50 000 

0630 

REP 

4 

LAST 1026 

1T.355T 

3 2741 

0631 

REP 

2 

LAST 1013 

IT, 3560 

7 2761 

0632 

REP 

2 

LAST 100 

IT, 3561 

55*456 

0633 

REP 

1 


IT, 356 2 

1 3567 

0634 

REP 

3 

LAST 1013 

IT, 3563 

3 1455 

0635 

REP 

3 

LAST 1029 

IT, 3564 

55*456 

0636 

REP 189 

LAST 1028 

IT, 3565 

3 4714 

0637 

REP 

8 

LAST 1023 

IT, 3566 

55*463 


CCS 

RBDPAIL 

TCP 

PYX 2 

TCP 

*2 

TCP 

PYX2 

INDEX 

XNPX2 

CA 

XLNNDX 

INDEX 

A 

CA 

pytable 

MASK 

YJETS 

TS 

YWORD2 

TCP 

T6 SETUP 

CA 

YWORDl 

TS 

YWORD2 

CAP 

ZERO 

TS 

BLAST2 


IP PAILURE CN BD IGNORE X-TRANSLATION 


I 




1 
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SORT THE JET CN-TI>«S 

AT THIS POINT ALL THE CHANNEL COMANDS AND JET CN-TIMES HAVE BEEN DETERMINED. IN SU-MARY THESE ARE 
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R0641 

HWORDl 


R0642 

RWORD2 

BLAST 

R0643 

PWORDi 


ROB 44 

PWORD2 

BLASTl 

R0845 

YVTORDi 


ROB 46 

YWORD2 

BLAST2 


R084T 

R0649 

R0651 

R0653 


THE SORTING ™ AND S8a;ENCK » ™ INTERRUPTS IS DETERMINED. TO FACILITATE 

JnK bWTJNti PROCESS AND THE TB PROGRAM, THE VARIABLES BLAST BLASTl BLAST? ARE RRSPRVFD A« nnflip dopt'tct r*i 

WORM.^ LAVER PART OP THESE WORDS CONTAIN A BRANCH INDEX AssSfc® ^ ESS AXI^ 


0654 

RHP 

190 

LAST 

1029 

17,3567 

0855 

REP 

10 

LAST 

1028 

17,3570 

0656 

REF 

14 

LAST 

1001 

17,3571 

0657 

REP 

9 

LAST 

1026 

17,3572 

0658 

REP 

8 

LAST 

987 

17,3573 

0659 

REP 

9 

LAST 

1029 

17,3574 

0660 

REP 

11 

LAST 

1030 

17,3575 

0661 

REP 

10 

LAST 

1030 

17,3576 

0662 





17,3577 

0663 

REP 

1 



17,3600 

0664 

REP 

11 

LAST 

1030 

17,3601 

0665 

REP 

10 

LAST 

1030 

17,3602 

0666 





17,3603 

0667 

REF 

1 



17,3604 

0668 

REP 

12 

LAST 1030 

17,3605 

0669 

REF 

11 

LAST 

1030 

17,3606 

0670 

REP 

12 

LAST 

1030 

17,3607 

0671 

REF 

13 

LAST 

1030 

17,3610 

0672 





17,3611 

0673 

REP 

1 



17,3612 

0674 

REP 

21 

LAST 

1007 

17,3613 

0675 

REP 

69 

LAST 

987 

17,3614 

0676 

REF 

47 

LAST 

1004 

17,3615 

0677 

REP 

48 

LAST 

1030 

17,3616 

0678 

REF 191 

LAST 

1030 

17,3617 

0679 

REP 

10 

LAST 

993 

17,3620 

0680 

REP 

40 

LAST 

1007 

17,3621 

0681 

REF 

38 

LAST 

1010 

F-6,1510 

0682 

REP 

5 

LAST 

973 

17,3622 

0682 





17,3623 


3 4714 1 

T8 SETUP 

CAP 

ZERO 

55«460 0 


TS 

BLAST *1 

3 4710 0 


CAP 

FOUR 

55«462 1 


TS 

BLASTl *1 

3 4717 1 


CAP 

El£va< 

55«464 1 


TS 

BLAST2 +1 

4 1457 1 


cs 

BLAST 

6 1461 0 


AD 

BLASTl 

0 0006 1 


EXTEND 

8 3624 1 


BZMP 

PxCHTl 2 

4 1461 1 

CHECKT23 Cs 

BLASTl 

6 1463 1 


AD 

BLAST2 

0 0008 1 


EXTEND 


8 3630 1 


B2MP 

DXOIT23 

4 1461 1 

CALCDTB 

CS 

BLASTl 

27«463 0 


ADS 

BLAST2 

4 1457 1 


CS 

BLAST 

27«461 1 


ADS 

BLASTl 

0 0006 1 


EXTEND 


3 3623 0 


DCA 

BCS2CADR 

53«313 0 


PXCH 

tbloc 

4 4712 0 

endjets 

CS 

BITl 

7 1501 0 


masg 

RCSFLAGS 

55«501 0 


TS 

HCSFLAGS 

4 4714 0 


CS 

zero 

55«465 0 


TS 

15 PHASE 

1 5222 1 


TCP 

RESUME 



BRANK= 

KMPAC 

02106 1 

RCS2CADR 

2CADR 

RCSA1T 

42066 1 





BRANCH index FOR ROLL 
BRANCH index FOR PITCH 

branch index for yaw 

Tl OR T2 


END CP SORTING PROCEDURE 
RESET T5LOC TO BEGIN PHASE 1 

RESET BIT1 for INITIALIZATION of 
TB PROGRAM 

RESET TCPHASE FOR PHASE] 

RESUE® INTERRUPTED PROGRAM 
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L 

JET 

SELECTION LOGIC 





0683 

REF 

13 

LAST 1030 

17,3624 

53-460 

0 

DXCHT12 

0684 

REF 

14 

LAST 1030 

17,3625 

53«482 

1 


0685 

REF 

14 

LAST 1031 

17,3628 

53-460 

0 


0686 

REF 

1 


17,3627 

1 3601 

1 


068T 

REP 

15 

LAST 1031 

IT, 38 30 

53-462 

1 

DXCHT23 

0688 

REF 

12 

LAST 1030 

IT, 3831 

53-464 

1 


0689 

REP 

16 

LAST 1031 

17,3632 

53-462 

1 


0690 

REP 

15 

LAST 1031 

17,3633 

4 1457 

1 


0691 

REF 

IT 

LAST 1031 

17,3634 

6 1461 

0 


0692 




IT, 3635 

0 0006 

1 


0693 




17,3636 

6 3640 

0 


0694 

REF 

1 


17,3637 

1 3605 

0 


0695 

REP 

16 

LAST 1031 

IT, 3640 

53«460 

0 


. 0696 

REF 

18 

LAST 1031 

17,3641 

53«462 

1 


0697 

REF 

IT 

LAST 1031 

17,3642 

53-460 

0 


0698 

REP 

2 

LAST 1031 

17,3643 

1 3605 

0 



U®U3 PAGE NO. 22 Be S3 


DXCH 

BLAST 

dxch 

BLASTl 

DXCH 

BLAST 

TCP 

CHECKT23 

DXCH 

BLASTl 

DXCH 

BLAST2 

dxch 

BLASTl 

cs 

BLAST 

AD 

BLASTl 

Exie® 

BZ4P 

+2 

TCP 

CALCDTa 

DXCH 

BLAST 

DXCH 

BLASTl 

DXCH 

BLAST 

TCP 

CALCDTS 
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P0699 



76 PROGRAM 

0700 

0701 

REP 

1 


0702 

0703 

REP 

19 

LAST 1010 

0704 

0705 

REP 

15 

LAST 1010 

0700 

BBP 

5 

LAST 1010 

0707 

REP 

41 

LAST 1030 

0708 

0709 

REP 

42 

LAST 1032 

0710 

REP 

49 

LAST 1030 

0711 

HEP 

TO 

last 1030 

0712 

0713 

REP 

1 


071* 

REP 

50 

LAST 1032 

0715 

REF 

12 

LAST 1028 

0710 

0717 

REP 

7 

LAST 959 

0718 

REP 

4 

LAST 1026 

0719 

0720 

REP 

4 

LAST 1029 

0721 

REP 

3 

LAST 652 

0722 

REP 

18 

LAST 1031 

0723 

REP 

1 


072* 

REP 

1 


0725 

0726 

REP 

2 

LAST 1032 

0727 

REF 

19 

LAST 1031 

0728 

REP 

1 


0729 

REP 

1 


0730 

0731 

REP 

2 

LAST 1032 

0732 

REP 

13 

LAST 1031 

0733 

REP 

1 


073* 

REP 

1 


0735 

REP 

43 

last 1032 

0738 

REP 

2 

LAST 1032 

0737 

REP 

19 

LAST 1032 

0738 

REF 

1 



20 '35 OCT. 28,1968 IMPCSM .195 PACK 1032 
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BBP 110 LAST 101* 
BBP 20 LAST 1032 

rep 1 


21,3751 

17,2000 

17,38** 


21 

SBUXC OAPS5 

bank 


17,36*4 

17,36*5 


22 016 0 T6 START LX<H BANKHJPT 
0 0006 1 


17,38*8 22 012 1 

17,36*7 10 031 1 


17,3650 1 5222 1 

IT, 3651 1 365 3 0 


17,3652 1 5222 1 


extend 

CNOf QRJPT 

ccs Ti>«e 

TCP RE SIM? 

TCP *2 
TCP HR SIM? 


Q®Ck TO SEE IP TIMES WAS RESET 
AFTER TlBRUPT OCCUR0DI IN TSRUPT) 

IP SO WAIT POR NEXT TSRUPT-BEFORE 
TAKING ACTICN 


17,38 5 3 

* 1501 0 


cs 

RCSPLAGS 

17,365* 

T *712 0 


14* 

BITl 

17,3655 

0 0008 1 


extend 

17,3656 

1 38 6 7 1 


BzP 

I^RJPTOR 

17,3657 

27*501 0 


ADS 

RCSPLAGS 

17,3660 

3 1*51 0 


CA 

SWORD 1 

17,3661 

0 0006 1 


EXTEND 

17,3662 

01 006 0 


WRITE 

CHAN 6 

17,3663 

3 1*53 1 


CA 

PWORDi 

17,366* 

8 1*55 1 


AD 

YVrQRDl 

17,3665 

0 0008 1 


extend 

17,3666 

01 005 0 


WRITE 

CHAN5 

17,3667 

11*457 1 

TBRUPTCR CCS 

BLAST 

17 , 3670 

1 37*7 1 


TCP 

zblast 

17,3671 

1 3706 1 


TCP 

REPLACE 

17,3672 

1 367* 0 


TCP 

*2 

17,3673 

1 3706 1 


TCP 

REPLACE 

17,367* 

11**81 1 

T8L1 

CCS 

BLASTl 

17,3675 

1 375 2 0 


TCP 

ZfSASTi 

17,3676 

1 3713 0 


TCP 

BEPIACEi 

17,3677 

1 3701 0 


TCP 

*2 

17,3700 

1 3713 0 


TCP 

REPLACEl 

17,3701 

11**63 0 

16L2 

CCS 

BLAST2 

17,3702 

1 3755 1 


TCP 

ZBLAST2 

17,3703 

1 3720 0 


TCP 

REPLACE2 

17,370* 

1 5222 1 


TCP 

RESIT® 

17,3705 

1 3720 0 


TCP 

RBPLACE2 

17,3706 

51*460 1 

REPLACE 

INDEX 

BIAST +1 

17,3707 

0 3725 1 


TC 

REPIACER 

‘17,3710 

* 4712 0 


CS 

CNE 

17,3711 

55**57 1 


TS 

BLAST 

17,3712 

1 367* 0 


TCP 

TBLl 

17,3713 

51*462 0 

REPLACEl 

INDEX 

BfASTl +1 


IP BITl IS 0 RESET TO 1 
Al® INITIALIZE CHANNEL 


INITIALIZE CHANNELS 5,6 WITH WORDi 


ZERO BLASTl 
REPLACE WORD] 
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JET «L8CTI0M LOGIC 



0T43 

0744 

0745 
0740 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

.0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 
0T67 

0768 

0769 

0770 

0771 

0772 

0773 

0774 
0T75 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

R0783 

0784 


2 LAST 1032 
111 LAST 1032 
21 LAST 1032 
1 


14 
3 

112 

15 


IAST 1032 
LAST 1033 
LAST 1033 
LAST 1033 
LAST 1032 


HBP 7 LAST 1028 


BW 8 
REK 200 


LAST 1032 
LAST 992 


B BK 3 LAST 1029 

BEK 4 LAST 1032 

REK 4 LAST 1026 


BEK 5 

USE 201 


LAST 1033 
LAST 1033 


BHE 3 LAST 1028 

BEK 6 LAST 1033 

RHB 4 LAST 1029 


BEK 7 
BEK 202 

BEK 192 
BEK 21 
BBK 1 
BEK 193 
BEK 22 
BEK 2 
BEK 194 
BEK 16 
BEK 6 
BEK 10 

BEK 11 
BEK 45 


LAST 1033 
LAST 1033 

LAST 1030 
LAST 1032 

LAST 1033 
LAST 1033 
LAST 1033 
LAST 1033 
LAST 1033 
LAST 1032 
LAST 1010 

LAST 1010 
LAST 1033 


1T.3T14 

17.3715 

17.3716 

17.3717 

17.3720 

17.3721 

17.3722 

17.3723 

17.3724 

IT, 3725 
17,3728 
17,3727 

17.3730 

17.3731 

17.3732 

17.3733 

17.3734 

17.3735 
17,3738 
17,3737 

17.3T40 

17.3741 

17.3742 

17.3743 

17.3744 

17.3745 

17.3746 

17.3747 

17.3750 

17.3751 

17 .3752 

17.3753 
IT, 3754 

17.3755 

17 .3756 

17.3757 
IT, 3760 

17.3761 

17.3762 

17.3763 


0 3725 

1 


TP 

RE PLACER 

4 4712 

0 


CS 

CNE 

55*481 

1 


TS 

BLAST! 

1 3701 

0 


TCP 

TBL2 

51*464 

0 

REPLACE 2 

INDEX 

BLAST2 *1 

0 3725 

1 


1C 

REPLACER 

4 4712 

0 


CS 

CUE 

55*463 

0 


TS 

BLAST2 

1 5222 

1 


TCP 

resltg 

3 1452 

0 

REPLACER CA 

FWOFD2 

0 0006 

1 


EXT®® 


01 006 

0 


WRITE 

CHAN6 

0 0002 

0 


TC 

0 

3 2761 

0 

REPLACEP CA 

YJETS 

0 0006 

1 


extend 


02 005 

0 


rand 

CHAN5 

6 1454 

0 


AD 

PWORD2 

0 0006 

1 


EXTHTO 


01 005 

0 


WRITE 

CHAN5 

0 0002 

0 


TC 

0 

3 2760 

1 

REPLACEY CA 

PJETS 

0 0006 

1 


EXIB® 


02 005 

0 


RAND 

CHAN5 

6 1456 

1 


AD 

YW0RD2 

0 0006 

1 


ext®® 


01 005 

0 


WRITE 

CHAN5 

0 0002 

0 


TC 

0 

3 4714 

1 

ZBLAST 

CAP 

ZERO 

57*457 

0 


XtH 

BLAST 

1 3757 

0 


TCP 

ENABT6 

3 4714 

1 

ZBLASTl 

CAP 

ZERO 

57*461 

0 


XCH 

BLAST! 

1 3757 

0 


TCP 

ENABTB 

3 4714 

1 

ZBLAST2 

CAP 

zero 

57*463 

1 


XCH 

BLAST2 

54 031 

1 

ENABT6 

TS 

TIMES 

3 4674 

0 


CAP 

NEOMAX 

0 0006 

1 


EXTEND 


05 013 

0 


WOR 

CHAN13 

1 5222 

1 


TCP 

RESUME 


»» OK 78 INTERRUPT 

17,3764 


ENDSU3CT EQUALS 
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INITIALIZE CHANNELS 5,6 WITH WORD 2 


ENABti? TBRUPT 
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ss K e s- E . c sTir j!s * M s ' ,E,, m * s ca ^ m ^- «■ « 

Roo °4 CM/DSTBY s 1 FOR DAP OPERATION 

150005 ©VDSIBY = 0 TO TERMINATE DAP OPERATION. 


15,2454 


BANK 15 


0007 

0008 

REP 

1 



15,2000 

15,2454 

SETLOC ETRYDAp 

bank 

0009 

REP 

1 




COUNT 15 /DA PEN 

0010 

REF 

29 

LAST 

042 

E6.1661 

ebank= aog 

0011 

0012 

REF 

REF 

6 

5 

LAST 

LAST 

960 

779 

15.2454 3 4377 0 

15.2455 27*725 1 

readgymi ca ten 

ADS CM/GYFOT 


0015 

REF 

42 

LAST 

993 

15,2456 

3 4705 1 

CA 

bits 

0016 

REF 

20 

(AST 

906 

15,2457 

7 1321 1 


IMCDES 33 

0017 





15,2460 

0 0006 1 

EXTEND' 

0018 

REF 

1 



15,2481 

1 2467 1 

BzP 

READGVMi 

0019 

REF 

71 

LAST 

1032 

15,2462 

4 4712 0 

cs 

BITl 

0020 

REF 

10 

LAST 

840 

15,2463 

7 0102 0 

MASK 

CM /FLAGS 

0021 

REF 

11 

LAST 

1034 

15 , 2464 

54 102 0 

TS 

CM /FLAGS 

0022 

REF 

1 



15,2465 

0 6000 1 

TC 

FLU G1 JET 

0023 

REF 

1 



15,2466 

0 2534 1 

TC 

CM/GYMIC +z 

0024 

REF 

27 

LAST 

1000 

15,2467 

3 0032 0 

HEADGYMi CA 

CDUX 

0025 

REF 

30 

LAST 

1034 

15,2470 

57*661 1 

XCH 

AOG 

0026 





15,2471 

0 0008 1 

Extend 


0027 

REF 

31 

LAST 1034 

15,2472 

21*661 0 

MSU 

AOG 

0028 

REF 

2 

LAST 

109 

15,2473 

55«675 0 

TS 

-DELAOG 

0029 

REF 

15 

LAST 

998 

15,2474 

3 0033 1 

CA 

CDUY 

0030 

REP 

2 

LAST 

109 

15 , 2475 

57*662 1 

XCH 

AIG 

0031 





15,2476 

0 0006 1 

EXTEND 


0032 

REF 

3 

LAST 

1034 

15,2477 

21*662 0 

MSU 

AIG 

0033 

REF 

2 

LAST 

109 

15,2500 

55*676 0 

TS 

-DEtAIG 

0034 

REF 

21 

LAST 

1008 

15,2501 

3 0034 0 

CA 

CDUZ 

0035 

REF 

3 

LAST 

778 

15,2502 

57*663 0 

XCH 

AMG 

0036 





15,2503 

0 0006 1 

EXTEND 


0037 

REF 

4 

LAST 

1034 

15,2504 

21«663 1 

MSU 

AMG 

0038 

REF 

2 

LAST 

109 

15,2505 

55*677 1 

TS 

-DELAM3 


KEEP RESTART DT OWING RELATIVE TO 
WOT PIPTIME. (GROUP 6 > 

IE A RESTART OCCURS, SKIP PRESENT CYCLE. THE 
PHASCHNG PROTECTION IS IN CM/DAPIC. 


CHECK FOR fine ALIGN MODE OP CDU. 

( PROTECT AOG/PIP ETC AS WEIJ, AS 
GMWL DIFFERENCES) 

CK 

NOT IN PINE ALIGN, SO IDLE. 

SET GYMIIFSW =0 

QUENCH JETS, SINCE MAY BE A WHILE. 


-DElAOG=AOG(N-l) - AOGCN) 
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0039 

REE 

12 

LAST 1034 

15,2506 

4 0102 

0 

0040 

REE 

38 

LAST 1028 

15,2507 

T 6214 

1 

0041 

REE 244 

LAST 

1029 

15,2510 

SO 000 

1 

0042 





15,2511 

0 2512 

0 

0043 

REE 

1 



15,2512 

0 2521 

0 

0044 

WE 

2 

LAST 

1034 

15,2513 

0 25 32 

1 

0045 





15,2514 

12 515 

0 

0046 

BEE 

2 

LAST 1034 

15,2515 

0 6000 

1 

004T 

REE 

88 

LAST 

844 

15,2516 

0 5301 

0 

0048 





15 , 25 IT 

00006 

1 

0049 

WE 

SO 

LAST 

958 

15,2520 

0 5213 

1 

0050 

REE 

113 

LAST 1033 

15,2521 

3 4712 

1 

0051 

REE 

2 

LAST 

110 

15,25 22 

55«720 

1 

0052 

REE 

T 

LAST 

1034 

15,25 23 

3 4377 

0 

0053 

HEP 

46 

LAST 

946 

15,2524 

0 5140 

1 

0054 

REE 

32 

LAST 

1034 

Eg, 1661 



0055 

REF 

2 

LAST 

213 

15,2525 

02454 

0 

0055 





15,2528 

32066 

0 

A0056 








005T 

REE 

3 

LAST 

1035 

15,2527 

11*720 

1 

0058 

REE 

1 



15,2530 

0 2556 

0 

0059 

REE 

51 

LAST 

1035 

15,2531 

0 5213 

1 

0060 

REE 

13 

LAST 1035 

15,2532 

26 102 

0 

0061 

HEP 

195 

LAST 

1033 

15,2533 

3 4714 

1 

0062 

REP 

2 

LAST 

109 

15,2534 

55 “Til 

0 

0063 

REE 

2 

LAST 

109 

15,2535 

55*706 

0 

0064 

HEP 

2 

LAST 

109 

15,2536 

5S«70T 

1 

0065 

REP 

2 

LAST 

109 

15,2537 

55*710 

1 

0086 

REE 

4 

LAST 

840 

15,2540 

55«T23 

1 

0067 

REE 

1 



15,2541 

0 2522 

0 


DCBRATEt Cs 

CM /FLAGS 

CM/DSTBY=103D BIT2 GYMDIPSW=104D BITl 

MASK 

THREE 


INDEX 

A 


1C 

♦1 


TC 

DOBRA IE 

CK, GO ON 

TC 

CM/GYMIC 

DCNT CALC BCDYRATE CN FIRST PASS. 

NOOP 



TC 

FLUaiJBT 

TUrel OFF ALL JETS 

TC 

mASCHNO 


OCT 

00006 

DEACTIVATE DAP GROUP 6. 

TC 

TASKO/ER 


DCBHATE CA 

CNE 

DO BODYRATE 

DOBRATEl TS 

JETEM 

SKIP BODYRATE. 

CA 

TEN 

keep cdu read GOING. 

TC 

WAITLIST 


EBANK= 

AOG 


2CADR 

READGYtC 



DOES 

NOT PROTECT TE-K, SO IN SPS IN/COS 

CCS 

JEIfiM 


TC 

BODYRATE 


TC 

TASK OVER 

SKIP CALC CN INITIAL PASS. (PASSES) 

cm/gymic ads 

CM/FLAGS 

GYNOIPOT’ C(A)=1 , KNOT BIT IS 0 

CAP 

ZERO 


TS 

JETAG 


TS 

CLDBLP 


TS 

OLDEUi 


TS 

OLDELR 


TS 

GAMXTT 

NO GYM DIF, PROB NO GAM DIF. 

TC 

DCBRATEl 
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W 131 LAST 1028 
IMP 203 LAST 1033 
IMP 245 LAST 1035 
IMP 4 LAST 956 
IMP 132 LAST 1036 
IMP 204 LAST 1038 


15.2542 54 001 1 

15.2543 0 0002 0 

15.2544 50 000 1 

15.2545 3 4673 1 

15.2546 26 001 1 

15.2547 0 0002 0 


ANGCVCOR TS 
TC 

ncex 

CAP 


L 

0 

A 

LIMITS 




20*35 OCT. 28,1968 DA PC 194 .195 PACE 1036 

USER.S PACE NO. 3 Be S3 


THIS COSTS 2 MCt TO U®. 
NO CVFL 


BLOCk 3 
CHET 03-PDA PEN 



6000 

3 0007 

0 

FLUalJBT CA 

7 

COE HERE TO TURN OPP ALL JETS. 


6001 

0 0006 

1 

EXTEND 



HBP i 

6002 

01 006 

0 

WRITE 

BCLLJBTS 

ZERO CHANNEL 6 


6003 

0 0006 

1 

EXTEND 



IMP 1 

6004 

01 005 

0 

WRITE 

PITJETS 

ZERO CHANNEL 5 

HEP 205 LAST 1036 

6005 

0 0002 

0 

TC 

O 



15,2550 



BA}* 

15 



0084 IMP 2 LAST 1034 TO 1036* 60 60* 

0085 IMP 2 LAST 1034 15,2000 

0086 15,2550 


COLKT 15/DAPEN 

seiloc ETRYDAP 
HA}* 


HEP 4 LAST 1035 

HEP 3 LAST 436 

HEP S LAST 1036 

HEP 206 LAST 1036 


15.2550 4 0000 0 

15.2551 6 1720 0 

15.2552 0 0006 1 

15.2553 7 4675 0 

15.2554 6 1720 0 

15.2555 0 0002 0 


4 0000 0 RATEAvC CCM 

6 1720 0 AD JBIB4 

0 0006 1 EXTEND 

7 4675 0 MP HALE 

6 1720 0 AD JBTEM 

0 0002 0 TC O 


SUBROUTINE TO ESTIMATE RATES IN PRESENCE 
OP CONSTANT ACCELERATION. 

DELV CEST) = DELV +(DBLV-0LDELV>/2 




1 
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FOltl 

THESE are CALLED FOR THE VARIOUS INITIALIZATIONS NEEDED. 

•102 





20,3585 




bank 

20 

•103 

REF 

1 



20,2000 




SETTLE 

DAPSl 

•104 





20,3585 




BANK 


•103 

REP 

1 







cam 

20 /DA PEN 

•106 

REP 

33 

LAST 

1035 

Bo, 1661 




EBANK= 

AOG 

•10T 

REP 

3 

LAST 

841 

20,3565 

3 4T52 

0 

CM/DAPCN CA 

EBA03 

•108 

RES' 

40 

LAST 

841 

20,3586 

54 003 

0 


TS 

E8ANK 

•100 

REP 

52 

LAST 

T83 

20,3567 

0 544T 

0 


TC 

DQSNFLAG 

•1095 

REP 

2 

LAST 

690 

20,3570 

00132 

1 


ADRBS 

DAPBITl 

0110 

REP 

53 

LAST 

1037 

20,3571 

0 5447 

0 


TC 

DOWNFLAG 

•1105 

HEP 

2 

LAST 

690 

20,3572 

00133 

0 


ADRBS 

DAPBIT2 

0111 





20,3573 

0 0006 

1 


EXTEND 


0112 

REP 

1 



20.3ST4 

3 3712 

0 


DCA 

T5IDLER1 

0113 

REP 

22 

LAST 

1030 

20,3575 

53*313 

0 


DXCH 

T5LOC 

•114 





20,35TB 

0 0006 

1 


EXTEND 


0115 

REP 

2 

LAST 

1037 

20,3577 

3 3712 

0 


DCA' 

T5 IDLBRi 

0116 

REP 

4 

LAST 

987 

20,3800 

53*311 

1 


DXCH 

TbLOC 

•lit 

REP 

3 

LAST 

1035 

20,3801 

0 6000 

1 


TC 

FLuaiJET 

one 

REP 

5 

LAST 

983 

20,3602 

4 7707 

1 


C S 

13,14,15 

0119 

REF 

T1 

LAST 

1010 

20,36 03 

7 1466 

0 


MASC 

DAPDATRl 

•120 

REP 

T2 

LAST 

1037 

20,3604 

55*466 

0 


TS 

DAPDATRl 

•121 





20,3805 

0 3611 

1 


TC 

+4 

0122 

REP 

8 

LAST 

904 

20,3806 

3 4731 

0 

NCTTYET 

CA 

.5SEC 

0123 

REP 

245 

LAST 

891 

20,3807 

0 4555 

0 


TC 

BANKCALL 

0124 

REP 

13 

LAST 

888 

20,3810 

01732 

0 


CADR 

DELAYJCB 

0125 

REP 

30 

LAST 

1006 

20,3811 

3 4700 

1 

>4 

CA 

BITll 

0126 

REP 

14 

LAST 

1035 

20,3812 

7 0102 

0 


MASK 

CM/FLAGS 

012T 





20,3613 

0 0006 

1 


Extend 


0128 

REP 

1 



20,3814 

1 36 06 

0 


bzp 

NOTYET 

0129 

REF 

114 

LAST 

1035 

20,3815 

4 4712 

0 


CS 

CNR 

0130 

REP 

51 

LAST 

1032 

20,3616 

55*501 

0 


TS 

RCSFLAGS 

A0131 











0132 

REP 

3 

LAST 

749 

20,3617 

55*727 

0 


TS 

P83FLAG 

*0133 











AO 134 










FLAG 

0135 





20,3820 

3 0007 

0 


CA 

7 

0136 

REP 

3 

LAST 

1035 

20,3621 

55*711 

0 


TS 

JETAG 

01361 

REP 

3 

LAST 

173 

20,3622 

55*713 

1 


TS. 

PAxERRl 

*01362 
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UffifUS PAGE NO. 4 E« S3 


RESIT DAPBITl . T5 RESTART IDENTIPIBR. 
BIT 15 FLAG 6 CM FLAGS. 

RESET DAPBIT2 
BIT 14 FLAG 6 

DISABLE RCS CALCulATICN 

DISABLE RCS JET CALLS 

JETS DEPARTED ON S4. ZERO JET BITS. 
SET CONFIG BITS =0 FOR ENTRY 


(DELAYJCB DOES INHINT) 

GAiOIPSW = 94D BITll, INITLYrO 
IP ZERO, WAIT UNTIL CM/POSE UPDATE. 


ACTIVATE CM/DAP 

USE BIT3 TO INITIALIZE NEEDIER CN 
NEXT PASS. 

SO WAREP62 WILL NOT BE INITIATED (UTIL 
HBADSUP IS SET IN P62. 

FLAG TO PREVENT MULTIPLE CALLS TO WAKEP62. 


KEEP NEEDLES ZERO UNTIL DAP UPDATE 
IN CASE CMDAPMOD IS NOT +1. 



II 


013T 

0138 


£M ENTRY DIGITAL AUTOPILOT 


0139 

REP 

4 

LAST 

841 

0140 

REP 

3 

LAST 

747 

0141 

REP 

5 

LAST 

841 

0142 

fay 

2 

LAST 

110 

0143 





0144 

HEP 

4 

LAST 

1038 

0145 

REP 

12 

LAST 

827 

0146 

REP 

15 

LAST 

1037 

0147 

tay 

28 

LAST 

932 

0148 

tay 

16 

LAST 

1038 

0149 

REP 

16 

LAST 

777 

0150 

REP 

T2 

LAST 

1034 

0151 

REP 

17 

LAST 

1038 

0152 





0153 

REP 

58 

LAST 

969 

0154 

REP 

1 




20.3623 0 0004 0 

20.3624 0 0006 1 

20.3625 3 1666 0 

20.3626 53*604 0 

20.3627 3 1684 1 

20.3630 55«T1T 0 

20.3631 0 0008 1 

20.3632 7 4675 0 
20,3833 55“T1S 1 

20,3634 4 0102 0 

20,3835 7 4677 1 

20,3638 26 102 0 

20,38 37 4 0078 1 

20.3640 7 4712 0 

20.3641 26 076 1 

20.3642 0 0003 1 



20.3643 

20.3644 


0 4574 0 
54342 0 


NASA 2021111-041 

20*35 OCT. 28,1988 DAPCS4 .195 PAGE 

UffifUS PAGE NO. 5 Be S 3 

IWINT 

EXTEND 



DCA 

ALPA/180 

DO ATTITUDE HOLD UNTIL KEYBOARD 

DXCH 

ALPACCM 

ESTABLISIES HEADSUP. 

CA 

ROLL/180 


TS 

BXTEND 

ROLLHOLD 

por attitude hold in mode + i . 

HP 

HALP 


TS 

ROLLC 

NOT INTERESTED IN LO WORD. 

CS 

CM /FLAGS 


MASK 

BIT 12 

CMiAPAHM =930 BIT 12 INHLY=0 

ADS 

CM/PLAGS 

SET BIT TO 1 . 

CS 

FLAOWD2 

SET NODOPLAG to PREVENT FURTHER 

mask 

BITl 

V 37 ENTRIES. 

ADS 

FIAG#RD2 


R0LINT 

TC 

POST JUMP 


CADR 

P62.1 
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20* 35 OCT. 28,1968 DAPCSM .195 PAGE 1039 


CM ENTRY DIGITAL AUTOPILOT 


USERotS PAGE NO. 


P0155 

INITIALIZE cm /dap. 

WAITLIST 

CALL FOR READGW®. SET SWITCH CM /DSD 

R0156 

SO READACCs WILL ENTER A WTLST CALL FOR 

setjtag . 


R015T 

CMDAPARM = 0 , 

SO CtihY BCDY RATE AND ATTITUDE CAIAJLATIWS ARE I 

BO150 

SET AVEGEXIT TO CONTINUE AT CM/POSS 




R0159 









0160 

REP 

4 

LAST 1037 

20,3645 

3 4752 

0 

CM/DAP IC CA 

EBACD 

0161 

REP 

41 

LAST 1037 

20,3646 

54 003 

0 

TS 

ebank 

0162 




20,3847 

0 0004 

0 

INHINT 


0163 

REP 

15 

LAST 803 

20,3650 

4 1205 

0 

CM/DAP2C CS 

PIPTIMB +1 

A0164 









0105 

REP 

6 

LAST 1036 

20,3651 

55«720 

1 

TS 

JBIB4 

. 0166 

REP 

1 


20,3652 

3 4675 

1 

CA 

POSl/2 

0167 

REP 

2 

LAST 1039 

20,3653 

6 4675 

1 

AD 

POSl/2 

0160 

REP 

14 

LAST 724 

20,3654 

6 0025 

0 

AD 

TD«1 

0169 

REP 

7 

LAST 1039 

20,3655 

27«7 20 

1 

ADS 

JE lEM 

0170 

HEP 

25 

LAST 989 

20,3656 

4 4715 

1 

CS 

FIVE 

0171 

REP 

0 

LAST 1039 

20,3657 

6 1720 

0 

AD 

JBTEM 

0172 

REF 

246 

LAST 1036 

20,3660 

10 000 

0 

CCS 

A 

0173 

REF 

1 


20,3681 

6 3710 

1 

AD 

-CDUT+1 

0174 




20,3862 

1 3660 

0 

TCP 

-2 

0175 




20,3883 

13 884 

1 

NOOP 


0176 

REP 

115 

LAST 1037 

20,3664 

6 4712 

1 

AD 

CNB 

0177 

REP 

6 

LAST 1034 

20,3665 

55«725 

1 

TS 

CM/GYJOT 

0170 

REP 

47 

LAST 1035 

20,3686 

0 5140 

1 

TC 

WAITLIST 

0179 

REP 

34 

LAST 1037 

Es , 166 1 



EBANK= 

AOG 

0160 

REP 

3 

LAST 1035 

20,3667 

02454 

0 

2CADR 

READGYMB 

0100 




20,3670 

32066 

0 



0101 

REP 

1 


20,3671 

4 3707 

0 

CS 

CM/SWICi 

0102 

REP 

17 

LAST 1038 

20,3672 

7 0102 

0 

MASK 

CM /FI AGS 

0103 

REF 

1 


20,367 3 

6 4377 

0 

AD 

CM/SWIC2 

AO1031 









AO1032 









0104 

REP 

16 

LAST 1039 

20,3674 

54 102 

0 

TS 

CM /FI AGS 

0105 




20,3675 

3 0007 

0 

CA 

7 

0106 

REF 

5 

LAST 841 

20,3676 

55«666 

1 

TS 

BETA/180 

0100 

REP 

116 

LAST 1039 

20,3677 

3 4712 

1 

CA 

ONE 

0109 

REF 

1 


20,3700 

54 305 

0 

TS 

Sr/NDX 

0190 

REP 

29 

LAST 829 

20,3701 

0 5261 

1 

TC 

2PHSCHNG 

0191 




20,3702 

40116 

0 

OCT 

40116 

0192 




20,3703 

05024 

1 

OCT 

05024 

0193 




20,3704 

13000 

0 

OCT 

13000 

0194 

REF 

59 

LAST 1038 

20,3705 

0 4574 

0 

TC 

POST JUMP 


PRIO OP P82 L PRIO AvG, ’PIPTMrPIPTMl 


Ot/PL GUARANTEED 

CCA) = DELTA TIME SINCE PI PUP 


SEND NO ZERO TO WTLST 
FOR RESTART 


GAM3IPSW, GYMDIFSW, CM/DSWY 
DAPARM, .05GSW, I ATS# , ENTRYDSP 

set cm/dstby, latsw 

DISABLE ENTRY DISPLAY, SINCE DBS. CI». 
CALC. CP6Z.3’ GOES TO ENDEXIT. 


NECESSARY’ NO OvFL CORRECTICN 
INITIALIZE THE TM OP BODY RATES VIA 
IJPflUFP. 


DOES INHINT/RELINT 
SAVE TBASE6 


I 




ASSS «LB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 

cm entry digital autopilot 


0195 REP i 

0198 

01961 REP g LAST 1035 

0197 

0198 BEF 23 LAST 1037 

0199 REP « LAST 690 

0199 


20,3708 

S4326 

1 

CADR 

P62.2 

20.370T 

16017 

0 

CM/s«riCi oct 

16017 

4377 



CM/SWIC2 = 

TEN 

20,3710 

77786 

0 

-CDur+i oct 

77766 

1312 



EEANKr 

T5L0C 

20,3711 

03143 

1 

T5IDLER1 2CADR 

15IDLOC 

20,3712 

12062 

0 





20 


’35 OCT. 28,1968 DApCSM .195 PACE 1040 
U9BRaS PACE NO. 7 E8 S3 

00012 * CM/DSTBY, LATSW 


I 



^33BVLB REVISION 249 OF AOC PROGRAM COLOSSUS BY (MSA 2021111-041 20’35 OCT. 28,1968 OAPCSM .195 PAGB 1041 


04 EKncr digital autopilot 


USBR-S PAGE NO. 


M2(M mis SECTION CALCULATES THE ANGULAR BODY RATES BACH .1 SEC. the ANGUIAR rates ARE THOSE AUNG THE BODY AXES 
— UAtUiA! t V rviainkJAirCn n A O REOJIR3'®/T’ THMPORAHY ERASE. JBTEM, JBTEM *1 


XB, YB, ZB, AND ARE NORMALLY DESIOMTH) P, 0, R. 


SINCE RESTARTS ZERO THE JET OUTPUT CHANNELS, NO ATTEMPT IS MADE TO RESTART THE KflRY DAPS. THAT IS, 
1HE 0 1 SEC DAPS WILL MISS A CYCLE, AND WILL PICK UP AT THE NEXT 0.1 SEC UPDATE. MOST OF THE TINE THE 2 SEC 
pni. SYSTEM WILL MISS ONLY 0.1 SEC QF CONTROL. H03EVER IF THE RESTART OCCURS APTER THE SECTION TIMETST HAS 
STARTED THEN THE ROLL SYSTEM WILL MISS CUE CYCLE. 

miS IS NECESSARY IHDSR THE GROUNDHULE THAT NO JET COMMANDS SIALL BE LESS THAN 14 MS. 


35 LAST 1039 Be, 1661 
15,2558 

3 LAST 1036 15,2000 

15,2558 


EHV*C- AOG 
BANK 15 
®TLCC BTRYDAP 
BAJWO 


3 LAST 1036 TO 103T’ 


CCLNT 15 /DA PEN 


0218 PFF 5 LAST 1034 15,255 6 3 166 3 0 BCDYRATE CA 

0219 AH' 3 LAST 9T0 15,2557 0 4767 0 1° 

0220 IBP 2 LAST 110 15,256 0 55«511 1 TS 


THE® ARE 2S CCMPL NOS, BUT U® ANYWAY. 


LAST 1041 
LAST 970 
LAST 110 


15.2561 3 1661 1 

15.2562 0 4770 0 

15.2563 55*512 1 


C(AOG) r A0G/180 
SINO 

SINO = SIN(AOG) 


LAST 1041 
LAST 110 


15.2564 0 0006 1 

15.2565 7 1511 1 

15,2568 55*514 1 


EXTBTO 
MP COSM 

TS S1N0CO94 


37 LAST 1041 
4 LAST 1041 
2 LAST 110 


15,2567 3 1661 1 

15.2570 0 4767 0 

15.2571 55«513 0 


LAST 1041 


15,2572 0 0006 1 
15,257 3 7 1511 1 
15,2574 55*515 0 


EXTEND 
MP COSM 

TS COSOCOSM 


o TCDU/180 = IDOT 1CDU/180 COSO COSM ♦ (®OT TCRJ/igO SINO 


LAST 1034 


LAST 1041 
LAST 1039 
LAST 1034 


LAST 1041 
LAST 1041 
LAST 1041 
LAST 1035 


15.2575 

15.2576 

15.2577 

15.2600 

15.2601 

15.2602 

15.2603 

15.2604 

15.2605 

15.2606 

15.2607 
15,2610 


0 0006 1 
7 1512 1 
53*721 0 
4 1876 0 
0 0006 1 
7 1515 0 
21*721 0 
3 1720 0 
57*707 0 
0 2550 0 
55*702 1 


cs 

EXTEND 

MP 

DXCH 

CS 

EXTEND 

MP 

DAS 

CA 

XQrl 

TC 

TS 


SINO 

JBT©4 

-D6LAIG 


COSOCO^f 
JBT&1 
JiElEM 
OLDS JO 
RAH3AVG 
OR fil. 


PITCHDOT = O TCTXl/lBO 


i 
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20*35 OCT. 28,1968 DAPCSM .195 PAGE 1042 



L 


P0246 

024T 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 
025T 
0258 

R02S9 

0260 

0261 

0262 

0263 

0264 

0265 

0266 
026T 
0268 

0269 

0270 

0271 

0272 

0273 

0274 

AO 275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0287 

0288 
0289 


USERaS PAGE NO. g Be S3 

YAWOT’ R TOXJ/180 = -HOT TOXJ/180 COS4 SINO ♦ MOT TCDU/180 COSO 


REP 

4 

LAST 1041 

15,2611 

4 1677 1 

Cs 

-OBLAMO 





15,2612 

0 0006 1 

EXTEND 



REP 

3 

LAST 1041 

15,2813 

7 1513 Q 

MP 

COSO 


REP 

12 

LAST 1041 

15,2814 

53*721 0 

OXCH 

JEIBM 


REP 

4 

LAST 1041 

15,2815 

3 1676 1 

CA 

-OELAIO 





15,2616 

0 0006 1 

EXTBTO 



REP 

3 

LAST 1041 

15,2817 

7 1514 1 

MP 

SINOCOSM 


REP 

13 

LAST 1042 

15,2820 

21*721 0 

ms 

JETBM 


REP 

14 

LAST 1042 

15,2621 

3 1720 0 

CA 

JET0M 


HEP 

3 

LAST 1035 

15,2822 

57*710 0 

XCH 

CLDELR 


REP 

2 

LAST 1041 

15,2623 

0 2550 0 

TC 

RATEAVO 


REP 

2 

LAST 109 

15,2824 

55*703 0 

TS 

HREL 

YAWDOT = R TCDU/180 

ROUiOT 

’ P TCDU/180 = ODOT 

tcdu/ibo V 

HOT TCDU/180 ; 

SINM 


REP 

6 

LAST 1041 

15,2825 

3 1663 0 

CA 

AMO 


REP 

4 

LAST 1041 

15,2626 

0 4770 0 

TC 

SPSIN 


REP 

2 

LAST 110 

15,2627 

55*510 0 

TS 

SINM 





15,2630 

0 0006 1 

EXT&ID 



REP 

5 

LAST 1042 

15,2631 

7 1676 0 

MP 

-DELAIO 


REP 

15 

LAST 1042 

15,2632 

55*720 1 

TS 

JBTEW 


REP 

196 

LAST 1035 

15,2633 

3 4714 1 

CA 

ZERO 





15,2834 

20 001 1 

DOauCL 


RCUND L INTO A 

REP 

3 

LAST 1034 

15,2635 

6 1675 1 

AD 

-DBLAOO 


REP 

16 

LAST- 1042 

15,2636 

6 1720 0 

AD 

JEIBM 


REP 

247 

LAST 1039 

15,2637 

4 0000 0 

CS 

A 


REF 

17 

LAST 1042 

15,2640 

55*720 1 

TS 

JETBM 


REP 

3 

LAST 1035 

15,2641 

57*706 1 

XCH 

CLDELP 


REP 

3 

LAST 1042 

15,2642 

0 255 0 0 

TC 

RATEAVO 


REF 

2 

LAST 109 

15,2643 

55*701 1 

TS 

PHEL 

ROLLDOT = P TCDU/180 







IP OAMOT 

t 0-5 dgg/sec, THEN GAMOT =0 

REP 

5 

LAST 1035 

15,2644 

11*723 1 

CCS 

OAMOT 





15,2845 

0 2647 0 

TC 

*2 


REP 

1 


15,2846 

0 2671 0 

' TC 

NOGAMOT 


REP 

6 

LAST 1038 

15,2647 

4 1664 0 

CS 

RCLL/180 


REP 

5 

LAST 1042 

15,2650 

0 4770 0 

TC 

SPSIN 





15,2651 

0 0006 1 

EXTEND 



REP 

6 

LAST 1042 

15,2652 

7 1723 1 

MP 

OAMOT 


REP 

18 

LAST 1042 

15,2653 

55*721 0 

TS 

JETBM +1 

-SR GAMOT 




15,2654 

0 0006 1 

EXTEND 



REP 

1 


15,2655 

7 3217 1 

MP 

SINTRIM 

SINI-20) (FOR NOMINAL L/D = .3) 

REP 

3 

LAST 1042 

15,2656 

27*701 1 

ADS 

PHEL 

PREL TCDU/ 180=( P-SAIJ 7 SR GAMOT) TCDU/i 80 

REP 

7 

LAST 1042 

15,2657 

3 1664 1 

CA 

RCL-L/180 


REP 

5 

LAST 1041 

15,2660 

0 4767 0 

TC 

SPCOS 
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ASSSCLB REVISION 249 OP AOC PBOOftW COLOSSUS BY NASA 2021111-041 

04 entry digital autopilot 


USSrUS PACE NO. 10 


0290 




15,2661 

4 0000 

0 

CCM 


0291 




15,2662 

0 0006 

1 

EXTB® 


0292 

REP 

T 

LAST 1042 

15,2683 

7 1723 

1 

MP 

GALOOT 

0293 

REP 

•3 

LAST 1041 

15,2664 

27«702 

1 

ADS 

OREL 

0294 

REP 

19 

LAST 1042 

15,2665 

4 1721 

0 

CS 

jy lEM ♦! 

0295 




15,2666 

0 0006 

1 

BXTa® 


0290 

REP 

1 


15,2667 

7 3220 

0 

MP 

COSTRIM 

0297 

HEP 

3 

LAST 1042 

15,2670 

27«703 

0 

ADS 

RHEL 

0298 

REP 

29 

LAST 1038 

15,2671 

3 4877 

0 

NOGAMXJT CA 

BIT12 

0299 ' 

HEP 

19 

LAST 1039 

. 15,2672 

7 0102 

0 

MASK 

CM /FLAGS 

0300 




15,2673 

0 0006 

1 

EJCIB© 


0301 

REP 

52 

LAST 1035 

15,2674 

1 5213. 

0 

sibydump BzP 

TASK OVER 

0302 

HEP 

27 

LAST 1008 

15,2675 

3 4672 

0 

CA 

POS4AX 

0303 

HEP 

25 

LAST 1010 

15,2676 

54 030 

0 

TS 






15,2677 

0 0006 

1 

EXT&® 


0305 

REP 

1 


15,2700 

3 2704 

0 

DCA 

ATDOICAD 

0306 

REP 

24 

LAST 1040 

15,2701 

53*313 

0 

DXCH 

T5LOC 

DOBS 


OREL TCDU/180=<O-CR GASOOT) TOXJ/180 
B( i = -sr CWOOT 


COSC-20> (FOR NCMINAL L/D s .3> 

RREL 1CDU/180=<R*CAU» SR OASCWTITCDU/lgO 


CMQAPARM = 930 BIT 12 


DAP NOT AHM5). 

PICK OP AT ATTRATES IN 10 MS OR SO. 


0308 REP 53 LAST 1043 15,2702 0 5213 1 


0309 REP 38 LAST 1041 Ee.1681 

0310 REP 1 15,2703 

0310 REP 1 15,2704 


1C TASKCVER 

ebank= aog 


15,270 3 02705 1 ATDOICAD 2CADR ATTRATES 

15,2704 32068 0 


i 


L 


ASSEMBLE RKVISICN 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 
ON fMTRY DIGITAL AUTOPILOT 


P0311 

R0312 

R0313 

R0314 

0315 

0316 

0317 

0318 

0319 

0320 
A0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 


I 

t 

} 

I 

\ 
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caloxatb body attitude rates Ai© integrate to obtain attiude angles 

09 PHIDOT TOXJ/130 = <CA PREL ♦ SA RRSL) TCDU/100 
B&IAOOT 1OXJ/180 = <-SA PREL ♦ CA RR2L) TCDU/100 
AlPADOT TOXJ = (OREL * S0 PHIDOT) TCDU/100 


U®R«S PAGE NO. ll E« S3 


RKP 

REP 

REP 

REP 


REP 

REP 

REP 

REP 

REP 

REP 

REP 


REP 

REP 

REP 

REP 


REP 

REP 

REP 


REP 

REP 


REP 

REP 

REP 

REP 

RHP 

REP 

REP 

REP 

REP 


20 

LAST 1032 

15,2705 

22 016 0 

ATTRATES LxCH 

HANKHJPT 

CCNTINUB HERE VIA 15 



15,2706 

0 0006 1 

BXTB® 

TASK MAY BE SKIPPED AT RESTART 

16 

LAST 1032 

15,2707 

22 012 1 . 

«CH 

QRJPT 


11 

LAST 3S8 

15,2710 

3 0021 1 

CA 

SR 




15,2711 

6 0000 1 

DClflLB 


2 

LAST 111 

15,2712 

55*623 0 

TS 

CM/SAVE 







DOES NOT PROJECT TS*, SO IN SPSIN/COS 

4 

LAST 1043 

15,2713 

3 1702 0 

CA 

OREL 


5 

LAST 1038 

15,2714 

6 1665 0 

AD 

ALPA/180 


1 


15,2715 

0 2542 0 

1 C 

ANOOvCOR 

' 

6 

LAST 1044 

15,2716 

55*665 1 

TS 

AI-PA/ibo 


6 

LAST 1042 

15,2717 

0 4767 0 

TC 

SPCOS 


2 

LAST 110 

15,2720 

55*506 1 

TS 

CALPA 

CALFA 

2 

LAST 109 

15,2721 

55*705 0 

TS 

PHIDOT 




15,2722 

0 0006 1 

B)fIE© 


4 

LAST 1042 

15,2723 

7 1701 1 

HP 

PHEL 


3 

LAST 1044 

15,2724 

57*705 1 

XCH 

PHIDOT 

CA PREL 



15,2725 

0 0006 1 

EXTEND 


4 

LAST 1043 

15,2728 

7 1703 0 

MP 

RREL 

CA RREL 

2 

LAST 109 

15,2727 

55*704 1 

TS 

BBTADOT 


T 

LAST 1044 

15,2730 

3 1665 0 

CA 

ALFA/180 


6 

LAST 1042 

15,2731 

0 4770 0 

TC 

SPSIN 


2 

last 110 

15,2732 

55*507 0 

TS 

SALFA 

SIN(ALPA) 



15,2733 

0 0006 1 

EXTEND 



5 

last 1044 

15,2734 

7 1703 0 

MP 

RFtei, 

SA RREL 

4 

LAST 1044 

15,2735 

27*705 0 

ADS 

PHIDOT 

CB PHIDOT, SAVED. 

3 

LAST 1044 

15,2736 

4 1507 0 

cs 

SALPA 




15,2737 

0 0006 1 

EXTEND 



5 

LAST 1044 

15,2740 

7 1701 1 

MP 

FUEL 


3 

LAST 1044 

15,2741 

27*704 1 

ADS 

BBTADOT 

SAVE BETADOT TCDU/lBO 

6 

LAST 1039 

15,2742 

27*666 1 

ADS 

BSIA/180 

BETA DCNE. 

T 

LAST 1044 

15,2743 

0 4770 0 

TC 

SPSIN 




15,2744 

0 0006 1 

EXTEND 



5 

LAST 1044 

15,2745 

7 1705 0 

MP 

PHIDOT' 

NEGLECT CB IN CB PHIDOT 

0 

LAST 1044 

15,2746 

6 1665 0 

AD 

ALFA/180 


2 

LAST 1044 

15,2747 

0 2542 0 

TC 

ANGOvCOR 


9 

LAST 1044 

15,2750 

55*665 1 

TS . 

ALFA /i 80 

ALFA DCNE. 
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•352 



15,2751 

• 353 

REF 

4 LAST 1038 

15,2752 

0354 

REP 

3 LAST 1044 

15,2753 

0355 

REF 

7 LAST 994 

15,2754 

0358 

REF 

2 LAST 111 

15,2755 

•357 

REP 

6 LAST 1044 

15,2756 

0358 

REP 

8 LAST 1042 

15,2757 

0350 

REF 

4 LAST 1045 

15,2760 

0360 

REF 

3 LAST 173 

15,2781 

0301 

REF 

9 LAST 1045 

15,2762 

R0362 


START YAW AUTOPILOT HERE . 

0364 

REF 

31 LAST 982 

15,2763 

0365 

REF 

20 LAST 1043 

15,2764 

0366 



15,2765 

0367 

REF 

1 

15,2766 

0368 

REF 

117 LAST 1039 

15,2787 

0369 

REF 

5 LAST 748 

15,2770 

0370 

REP 

g LAST 1045 

15,2771 

0371 

REF 

g LAST 994 

15,2772 

03713 

REF 

e LAST 1044 

15,2773 

0372 



15,2774 

0373 

REF 

2 LAST 1042 

15,2775 

0374 

REF 

6 LAST 1044 

15,2776 

0375 

REF 

1 

15,2777 

0376 

REP 

248 LAST 1042 

15,3000 

0377 

REF 

1 

15,3001 

0370 

REP 

20 LAST 1043 • 

15,3002 

R0379 

START PITCH AUTOPILOT HERE 

0380 

REP 

5 LAST 1044 

15,3003 

0381 

REP 

2 LAST 1045 

15,3004 

0382 

REF 

249 LAST 1045 

15,3005 

0383 

REF 

1 

15,3006 

0384 

REP 

21 LAST 1045 

15,3007 

0385 



15,3010 

0386 

REP 

2 LAST 1036 

15,3011 

0387 

REF 

4 LAST 1037 

15,3012 

0368 

REF 

1 

15,3013 

0389 

REF 

1 

15,3014 

0390 

REF 

1 

15,3015 


4 0000 0 
6 1803 0 
0 2542 0 
55*477 0 
55*572 1 


ALFACCM 

ANGCVCOR 

aki 

qaxerr 


AJST IN CASE 


3 1705 1 
6 1684 1 
0 254 2 0 
55*714 0 
55*664 0 


PHIDOT 

ROLL/180 

ANGOVCOR 

ROLLTM 

RCLL/180 


FOR PITCH FDA I AND EDIT. 
PHIDOT TCDu/180, NEGLECTING CB 


ROLL/180 FOR TM. 
ROLL DONE. 


RATE DAMPING WITH ENFORCED COORDINATED ROLL MANEUVER. 


3 4710 0 
7 0102 0 
0 0006 1 
1 3054 1 

4 4712 0 
55*700 0 


CA BIT3 

MASK CM/FLAGS 

extend 

BzP EXDAP 

CS ONE 

TS OCAPMOD 


.0509# =102D BIT3 9#=0, LESS .05G 

SWITCH =1, GREATER THAN .05 « 


IF G LESS THAN .05 
IP G CEO THAN .05 
SAVE -1 FOR USE IN CM/RCS 


55*477 0 
55*500 1 


TO ZERO PITCH AND YAW FDAI NEEDLES 
IN ATM. (MCXE =-l) 


0 0006 1 
7 3217 1 
6 1703 1 
0 3044 1 
50 000 1 
3 3222 0 


CS PREL 

EXT®® 

MP SINTRIM 

AD RREL 

TC 2D/93Z 

INDEX A 
CAF YJETCCBE 


YAW ERROR s RREL - PREL TAN (ALFA) 
LET S INC-201 BE APPRCSC FOR TANC-20) 


GO TEST DZ. GET TAG’ +0 IF IN Dz 
♦/- 1 IF NOT 


RATE DAMPING CNLY. 


3 1702 0 
0 3044 1 


15,3005 50 000 1 EXDAPIN INDEX 


3 3225 1 
27*720 1 


OREL 

2D/35Z 

A 

P/RJC0DE 

JETEM 


CCM? HERE FRCM EX ATM DAP 
COMBINE ALL NEW BITS. 


EXTEND 

WRITE PYJETS 


DOES NOT REOUIRE SAVING aD CODES. 
SET PYCHAN TO DESIRED BIT CONFIG. 


CCS JETAG 

TC CM/RCS 

TC CM /FDA I 

TC CM/FDA IR -1 


(JETA&-1 ECUIVAIENT TO OOAPMOD=+1) 
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•392 

HEP 

250 

LAST 1045 

0393 

HEP 

1 


0394 

REP 

1 


0395 

HEP 

2 

LAST 1046 

0390 

REP 

1 


A039T 

0398 

REP 

1 


0399 

REP 

251 

LAST 1048 

0400 

REP 

1 


0401 

0402 

REP 

2 

LAST 1046 

0403 

REP 

133 

LAST 1038 

0404 

REP 

20T 

LAST 1038 

0405 

REP 

1 


0406 

REP 

134 

LAST 1048 

040T 

REP 

2 

LAST 1048 

0408 

REP 

1 


0409 

0410 

REF 

2 

LAST 1048 

0411 

REP 

252 

LAST 1048 

0412 

0413 

0414 

REP 

3 

IAST 1046 

0415 

REF ; 

23; 

•t 1046 

0416 

REP 

i 


641T 

0416 

REP 

2 

LAST 1046 

0419 

0420 

REP 

22 

LAST 1045 

0421 

REP 197 

LAST 1042 

0422 

REP 208 

LAST 1048 


15,3016 

10 000 0 

3COZ 

CCS 

A 

15,3017 

6 3215 1 


AD 

YAWLIM 

15,3020 

1 3050 0 


TCP 

DzCCM 

IS, 3021 

8 3215 1 


AD 

YAWLIM 

15,3022 

1 3051 1 


TCP 

DZNOCCM 

15,3023 

55«624 1 

BIAsaiZ 

TS 

BIAi 

JETB42 

15,3024 

10 000 0 


CCS 

A 

15,3025 

4 3214 1 


CS 

CM/BIAS 

15,3028 

1 3030 0 


TCP 

♦2 

15,3027 

3 3214 0 


CA 

CM /BIAS 

15,3030 

6 0001 0 


AD 

L 

15,3031 

22 002 0 


LXCH 

0 

15,3032 

0 3016 0 


7C 

3DOZ 

15,3033 

52 002 1 


DXCH 

L 

15,3034 

11«624 1 

4D/®Z 

CCS 

JETEM2 

15,3035 

6 3212 0 


AD 

4D/SLIM 

15,3036 

1 3040 1 


TCP 

*2 

15,3037 

8 3212 0 


AD 

4D/SLIM 

15,3040 

54 000 0 


TS 

A 

15,3041 

1 3043 1 


TCP 

♦ 2 

15.3042 

15.3043 

22 007 0 
57«624 0 


ZL 

XCH 

JETEM2 

15,3044 

10 000 0 

2D/S3Z 

CCS 

A 

15,3045 

8 3213 1 


AD 

YDOILIM 

15,3046 

1 3051 1 


TCP 

+3 

15,3047 

6 3213 1 


AD 

YDOIUIM 

15,3050 

4 0000 0 

DzCCM 

COM 


15,3051 

55«721 0 

DZNOCCM 

TS 

JBT6M +1 

15,3052 

3 4714 1 


CA 

ZERO 

15,3053 

0 0002 0 


TC 

0 
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YAWL IM=1 .0-3/180=16384-273=18111 


; tor ext atm dap. 

SAVE RATE/180. BRROR/ibo IS IN L 
START ERROR Dz. 

= .6/180 


BIAS THE ERROR. 

SAVE CALLERS RETURN ADDRESS. 

GO GENERATE THE ERROR BIT. 

BIT TO L, RESTORE CALLERS O. 

came here in ext atm. cil> = error bit 

IE RATE GEO 4D/S, SET L=o AND TAKE 
JET BITS ACCORDING TO SON OF RATE. 


RATE CK. CONTINUE 

RATE GEO 4 D/S. CVER RIDE ERROR BIT 
AND CONTINUE TO GET SIGN. 

COME HERE TO TEST IP A WITHIN 2DEG/S Dz 

1.0 - ydot dz ( or poor) 

YDOT Dz = 2 DEG/SEC 

GBIERATE tag, SET C(A)= -*1 OUTSIDE Dz 
WCIAI = + 0 INSIDE 
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L CH ENTRY DIGITAL AUTOPILOT 


P0423 


extra atmospheric digital autopilot 


R0424 

R0428 

R0428 

R0430 


1. IF AflS(CALP) -C(45) POS, USE 

BETA’ YAW ERROR = 9CNCCALP) (BBTACCM -BETA) 
RATE = BETADOT 
R-AXIS = CONTROL 


R0431 

R0433 

R0434 


ROLL* ROLL ERROR = SONCCALF) (ROLLC - ROLL) 
RATE — PREL 
P-AXIS = CONTROL 


R0435 

R043T 

R0438 

R0439 


2. IF C<45) GEO CALPA CBQ -C(45>, U® 

BETA* ROLL ERROR = SGN(-SALF) (BETA COM -BETA) 
RATE r BETADOT 
P-AXIS = CONTROL 


R0440 

R0442 

R0443 


ROLL’ YAW ERROR = SGN(SALF) (ROILjC -ROD 
RATE = RREL 
R-AXIS = CONTROL 


R0444 

R0445 

R0448 

R0447 


3. ■> FOR AIL CASES , USE 

ALFA’ PITCH ERROR = CALFACCM - ALFA) 
RATE = OREL 
O-AXIS = CCNTOCL 


U®IUS PACE NO. 14 E8 S3 


IF CALPA POS, OCAPMOD= +0 
IP CALPA NBO, OCAPMCD r-0 
IF ODAPMCD =-o, RATE = RREL 

IP OOAPMCD = -0, RATE DAMP ONLY. 


ODAPMOD = +1 


RATE DAMP (NLY. 


R0448 



0449 

REF 

6 

LAST 

1045 

15,3054 

55«700 

0 EXDAP 

TS 

OOAPMCD 

i-O FOR NCW 

0450 

REP 

7 

LAST 

1044 

15,3055 

4 1666 

1 

CS 

BETA/180 


0451 

REP 

2 

LAST 

110 

15,3056 

6 1604 

1 

AD 

BBTACCM 


0452 

REP 

23 

LAST 

1046 

15,3057 

55«721 

0 

TS 

JBl®4 +1 

PRESERVE THIS FOR A 

0453 

REP 

3 

LAST 

1044 

15,3060 

11*506 

1 

CCS 

CALPA 


0454 

REP 

1 



15,3001 

6 3216 

1 

AD 

C 45 LIM 

= 1 . 0-COSt 45 I 

0455 





15,3062 

1 3064 

1 

TCP 

*2 


0458 

REF 

2 

LAST 

1047 

15,3063 

6 3216 

1 

AD 

C 45 LIM 


0457 

REP 

254 

LAST 

1046 

15,3064 

54 000 

0 

TS 

A 


0458 

REP 

1 



15,3065 

1 3146 

0 

TCP 

EXDAP2 

HERE IP ABSCCALFA) 

04582 

REP 

4 

LAST 

1047 

15,3066 

11*506 

1 

CCS 

CALPA 

YCAIFAY S 0.707 

04583 





15,3067 

1 3070 

1 

TOP 

♦1 

CCNTINUe IP POS 




/ayj- ft 




0459 

REP 

4 

LAST 

1037 

15,3070 

11*727 

0 

CCS 

P63FLAG 

VALID VALUES ARE’ -t, +1, +0. 

0460 

REP 

1 



15,3071 

0 3104 

1 

TC 

EXDAP4 


0461 





15,3072 

0 3074 

1 

TC 

+2 


0462 

REP 

2 

LAST 

1047 

15,3073 

0 3104 

1 

TC 

EXDAP4 


0463 

REP 

89 

LAST 

1035 

15,3074 

0 5301 

0 

TC 

phaschng 

SINC5E PASS THROUGH HERE. 

0484 





15,3075 

40334 

1 

OCT 

40334 


0465 

REP 

118 

LAST 

1045 

15,3076 

4 4712 

0 

cs 

CNB 


0466 

REP 

5 

LAST 

1047 

15,3077 

55*727 

0 

TS 

P6 3FLAG 

SET FlAG TO ASSURE SINCHI? PASS 
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0467 

IBP 

1 


15,3100 

3 3211 

0 


CA 

NffiC 


0468 

KEF 

48 

LAST 1039 

15,3101 

0 5140 

1 


TC 

WAITLIST 


0469 

REF 

39 

LAST 1043 

Efi, 1661 




BEWMfa 

A CD 


0470 

RHP 

2 

LAST 209 

15,3102 

02374 

0 


2CADR 

WAKBP82 

CALL TO TERMINATE P62 IN N SEC. 

0470 




15,3103 

54066 

0 





*0471 










85 DBG/ 3DEG/SEC = 21 ffiC NCMINAL 

*0472 









' 

TRANSIT TI* PRCM ALPAr45 TO ALFA TRIM 

0473 

REF 

5 

LAST 1045 

15,3104 

11*711 

0 

EXDAP4 

CCS 

JBTAG 

R0LLJEt INTERPACE TEST BETOB©* .1 SEC 

0474 

REF 

1 


15,3105 

1 3113 

0 


TCP 

EXDAP3 

DAP AND THE 2 SEC CM/RCS DAP 

0475 

REF 

2 

LAST 1048 

15,3106 

1 3113 

0 


TCP 

EXDAP 3 


0476 

RHP 

198 

LAST 1048 

15,3107 

3 4714 

1 


CA 

ZERO 


0477 




15,3110 

0 0006 

1 


BXIEND 


TUTN CFP ROLL JETS IP CN AND WAIT 

0478 

RHP 

2 

LAST 1038 

15,3111 

01 006 

0 


WRITE 

ROLLJETS 

UNTIL START OP 2 SEC CM/RCS CYCLE 

0479 

REF 

6 

LAST 1048 

15,3112 

55*711 

0 


TS 

JETAG 

RESTORE PROPER VALUE *0 

A0480 









ROLL PDAI 

WILL BE IN ERROR UNTIL NEXT CM/flCS CALL. 

0481 

REF 

5 

LAST 1047 

15,3113 

11*506 

1 

EXDAP3 

CCS 

CALPA 

HERE IP ABS( CALPA) GEO COSt45> 

0482 

REF 

24 

LAST 1047 

15,3114 

3 1721 

1 


CA 

JBTB8 +1 


0483 

REF 

1 


15,3115 

1 3121 

1 


TCP 

EXDAPl 


0484 

REF 

199 

LAST 1048 

15,3118 

4 4714 

0 


CS 

ZERO 


0485 

REF 

7 

LAST 1047 

15,3117 

55*700 

0 


TS 

OCAPMCD 

POR CM/RCS 

0488 

REF 

25 

LAST 1048 

15,3120 

4 1721 

0 


CS 

JETPM +1 


0487 

REF 

1 


15,3121 

55*573 

0 

ExDAPi 

TS 

RAXERR 

POR YAW FDA I v 

0488 

REP 

9 

LAST 1045 

15,3122 

55*500 

1 


TS 

AK2 

WANT RAXERR POR TM. 

0489 

REF 

135 

LAST 1046 

15,3123 

54 001 

1 


TS 

L 


0490 

REF 

8 

LAST 1048 

15,3124 

11*700 

0 


CCS 

CNDAPMCD 

COORDINATE BETA CONTROL. 

0491 




15,3125 

0 3130 

0 


TC 

♦ 3 

C(CMJAPMCD) CAN BE +1 , to, OR -0. 

0492 

REF 

119 

LAST 1047 

15,3126 

3 4712 

1 


CA 

CME 

USE BETADOT TO COORD IN MODE »0 

0493 

RHP 

255 

LAST 1047 

15,3127 

50 000 

1 


INDEX 

A 

oihefwisb use rrel. 

0494 

REP 

7 

LAST 1045 

15,3130 

3 1703 

1 


CA 

RflEL 


0495 

REF 

1 


15,3131 

0 3023 

0 


TC 

BIASSDz 

OO TEST Dz. +0 IE IN Dz;, t-1 OIHERWISE 

A0496 










IE GEO 4D/S, SET ERROR BIT IN I, =0) 

0497 




15,3132 

0 0006 

1 


EXTEND 



0498 

REF 

12 

I .AST ggg 

15,3133 

04 001 

1 


ROR 

ICHAN 

L HAS BETA BIT 

0499 

IffiF 

2S6 

LAST 1048 

15,3134 

50 000 

1 


INDEX 

A 


0500 

REF 

2 

LAST 1045 

15,3135 

3 3222 

0 


CAP 

YJETCCDE 


0501 

REF 

26 

LAST 1048 

15,3136 

55*720 

1 


TS 

JETEM 


0502 

REF 

3 

LAST 1045 

15,3137 

3 1572 

0 


CA 

qaxerr 

AIFA ERROR. 

0503 

REF 

138 

LAST 1048 

15,3140 

54 001 

1 


TS 

L 


0504 

REF 

6 

LAST 1045 

15,3141 

3 1702 

0 


CA 

OREL 

POR ALPADOT USE OREL 

0505 

REF 

2 

LAST 1046 

15,3142 

0 3023 

0 


TC 

BIASEDz 


0506 




15,3143 

0 0006 

1 


extend 



0507 

gey 

13 

LAST 1048 

15,3144 

04 001 

1 


ROR 

LCHAN 


0508 

REF 

1 


15,3145 

1 3005 

0 


TCP 

EXDAP IN 

CONTINUE CM IN DAP 

0509 

REP 

9 

LAST 1048 

15,3146 

25*700 

1 

BXDAP2 

INCR 

Cf-CAPMCD 

SET CM3APMOD TO +1 

0510 

REF 

120 

LAST 1048 

15,3147 

4 4712 

0 


CS 

CNE 

INDICATE CHANGE FROM .1 SEC UPDATE TO 
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L 

CM ENTRY DIGITAL AUTOPILOT 

0511 

A0512 

REP 

T 

LAST 1048 

15,3150 

0513 

REP 

6 

LAST 104T 

15,3151 

0514 

0515 

REP 

T 

LAST 1049 

15.3152 

15.3153 

0516 

REP 

4 

LAST 1044 

15,3154 

051T 

0518 

REP 

27 

LAST 1048 

15.3155 

15.3156 

0519 

REP 

28 

LAST 1049 

15,3157 

0520 

0521 

REP 

4 

LAST 1037 

15.3160 

15.3161 

0522 

REP 

5 

LAST 1038 

15,3162 

0523 

RHP 

5 

LAST 1049 

15,3163 

0524 

REF 

137 

LAST 1048 

15,3164 

0525 

REP 

5 

LAST 1049 

15,3165 

0526 

0527 

REF 

4 

LAST 1044 

15.3166 

15.3167 

0528 

REP 

5 

LAST 1049 

15,3170 

0529 

0530 

REP 

3 

LAST 1048 

15.3171 

15.3172 

0531 

REF 

14 

LAST 1048 

15,3173 

0532 

REP 

25T 

LAST 1046 

15,3174 

0533 

0534 

REF 

2 

LAST 1045 

15.3175 

15.3176 

0535 

REP 

3 

LAST 1048 

15,3177 

0536 

0537 

REP 

3 

LAST 1038 

15.3200 

15.3201 

0538 

REF 

10 

LAST 1045 

15,3202 

0539 

REP 

138 

LAST 1049 

15,3203 

0540 

REP 

6 

LAST 1049 

15,3204 

0541 

REF 

139 

LAST 1049 

15,3205 

0542 

REP 

2 

LAST 1048 

15,3206 

0543 

REP 

140 

LAST 1049 

15,3207 

0544 

REF 

3 

LAST 1049 

15,3210 


0550 

0551 

0552 
R0553 

05531 

05532 


11«507 0 
4 1721 0 
1 3180 1 
3 1721 1 
55«713 1 
0 0008 1 
7 4675 0 
57«713 0 


CCS P83FLAG 
TS P63FLAG 
NOOP 


CCS 

CS 

TCP 

CA 

TS 

BXT0® 

MP 

XCH 


SALFA 
JETPN +1 
*2 

JETEM +1 
PAXEKHl 

HALE 

PAxERHl 


15.3214 

15.3215 

15.3216 


15,3220 


54 001 

1 


TS 

L 

11*507 

0 


CCS 

SALFA 

4 1704 

1 


CS 

BSTADOT 

0 3171 

0 


1C 

♦2 

3 1704 

0 


CA 

BBTADOT 

0 3023 
0 0006 

0 

1 


7C 

EXTB® 

BIASEDZ 

04 001 

1 


ROR 

LCHAN 

50 000 

1 


INDEX 

A 

3 3225 
0 0006 

1 

1 


CAP 

EXTEND 

P/RJCCDB 

01 006 

0 


WRITS 

RCLLJETS 

3 1717 
0 0006 

1 

1 


CA 

EXT&TO 

ROXHOLD 

21*664 

0 


MSU 

RCLL/180 

54 001 

1 


TS 

L 

11*507 

0 


CCS 

SAIFA 

3 0001 

0 


CA 

L 

0 3121 

0 


TC 

EXDAPI 

4 0001 

1 


CS 

L 

0 3121 

0 


1C 

EXDAP1 

04064 

1 

NSEC 

DEC 

2100 

IF ] 

37734 

0 

4D/SLIM 

DEC 

16348 

37756 

1 

YDOTLIM 

DEC 

16366 

00067 

0 

CM /BIAS 

DEC 

55 

37267 

0 

YAWLIM 

• DEC 

16055 

11277 

0 

C45LIM 

DEC 

.29289 

65033 

1 

STNTRIM 

DEC 

-.34202 

36044 

1 

COSTRIM 

DEC 

.93969 


20’35 OCT. 28,1968 DAPCS4 .195 PA® 1049 

USBK.S PA® NO. 16 «6 S3 

TO 2 SEC FOR ROLL JETS.C IF OOAPMCD 
=0 AND JETAG =-l, 0UENCHE3 JETS IP CN) 

IP FLAG WAS ♦!,- SET =0. 


BETA CCNTRCL WITH P JETS 


TH4P SAVE. ERROR/ 180 

cm /fda i expects ehror/360. 
error/360 FOR PDAI, GET ERROR/180. 


USE BETADOT TO COORD IN MODE +-1 


GET ROIL CODE 

ROLL CONTROL WITH YAW JETS. 

WE,LL SKIP REGULAR ROLL SYST 

ROLL/180 AT (M/DAPCN TIME. 

i,s coipl, but so whats a bit.it 

FORCE A LIMIT CYCLE IN YAW RATE. 

TO REMOVE ITS BIASING EFFECT CN M DOT. 


65 DEG/ 3 D0G/SEC 

IS CHANGED, REMEMBER TO CHAN® 4.33SPOT. 
1.0 -4/180 D/s = 4/1800 EXP 14 
=1.0 - MXJT DZ= 16384 -18 
YDOT DZ = YDOT TCDU/180 = 2/1800 EXP 14 

=.6/180 Bl4 = 55 

YAWL IM=1. 0-3. 6/180=16384-329=16055 
= 1 . 0-COS( 45 1 


SIN(-20> 

COS(-20> 


(FOR NCMINAL L/D = .3) 
(FOR NCMINAL L/D = .3) 
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04 ENTRY DIGITAL AUTOPILOT 


UShS PAGE NO. 17 


£ ~ - =raww: ssmet 

A ° 554 JET CODE TABLES FOLLO# 


15.3221 

15.3222 

15.3223 

15.3224 

15.3225 
15,3228 


00120 1 OCTAL 00120 
00000 1 YJETCCDe OCTAL 00000 
00240 1 OCTAL 00240 
00005 1 OCTAL 00005 
00000 1 P/RJC0D6 OCTAL 00000 
00012 1 OCTAL 00012 


POS Y 

HCS JET BITS 
NBG Y 

POS R JET BITS ALSO POS P JET BITS 
NBG R ALSO NBG P 


ASS&eLB REVISION 249 OP AGO PROGRAM COLOSSUS BY NASA 2021111-041 


20*35 OCT. 28,1968 DAPCSM .195 PAOG 1051 



P0581 

R0S83 

R0585 

R0567 

R0589 

05T0 

0571 

A0572 

0573 

0574 

0575 

0576 


CM BOTHY DIGITAL AUTOPILOT PA0B N0 ‘ 18 68 33 

HCS THIS SECTION IS ENTERED BACH 2 SEC BY WAITLIST CALL FOLLOWING A DELAY CP 1.2 SEC AFTER PIPUP. 

H« TASK SOTJTAG SETS A FLAG IN JB»G TO SIGNIFY WAT ROLL UPDATE IS DUS. IN ROXMLY 5 CS BPDYHATE WILL BE 
RysanED AND JETAG WILL CAUSE CM/RCS TO ACT ON ROLLC IMMEDIATELY THEREAFTER. THE 

TASK SAVES THE CALL TINE SO THAT CM/RCS CAN DETERMINE HCW MlXH CP THE 2 SEC INTERVAL REMAINS BEFORE THE 

next update. 


HEP 


15 LAST 1039 
2 LAST 109 


15,3227 4 0025 1 

15,3230 55«712 0 


REP 121 
REP 8 
REP 90 


LAST 1048 
LAST 1049 
LAST 104T 


R0S78 

RO580 

R0582 

R0584 

0585 

A0588 

A0587 

A0588 

A0589 


15.3231 

15.3232 

15.3233 

15.3234 


3 4712 1 
55«711 0 
0 5301 0 
00001 0 


.0577 REP 54 LAST 1043 15,3235 0 5 213 1 


S3TJTAG CS 
TS 

CA 

TS 

TO 

CCT 

TC 


TINEl 

TUSH) 

CHE 

JETAG 

PHA3CHNG 

00001 

TASCCVER 


SAVE NOMINAL UPDATE TINE POR SYNCH 

THE 5 CS APPEARS IN TIMETST. 
RATHER THAN INCR, FOR SAFETY 
SET JETAGrl TO CAUSE CM/RCS TO BE 


EXECUTED APIER NEXT BCDYRATE UPDATE 


PREDICTIVE roll system entry steering provides roll ccmmand in LCC ROLLC. THE following calculates the 
TRAJECTORY TO THE ORIGIN IN PHASE PLANE CX,V). PROGRAM ENTERS jet cm AND CPF CALLS INTO WTLST TO PRdXX® 

THE DESIRED TRAJECTORY. CNLY those CALLS WHICH CAN BE EXECUTED WITHIN THE INTERVAL T 1 2 SEC) ARB ENTERED IN 
WTLST, THE REMAINDER ARE RECONSIDERED AT NEXT UPDATE. 


REP 4 LAST 188 


4874 


HALFPR EQUALS NEGi/2 *1 


CLEAR JEWG BEFORE TIMETST. SET TO ,0 TO SHOW 
ROLL DAP CALLED. IN EVENT OP RESTART, BCDYRATE 
MAY MISS A CYCLE. CM/RCS WILL MISS A CYCLE CNLY 
IP A RESTART OCCURS AFTER TIMETST COMMENCES.. 


0590 

0591 

0592 

0593 

0594 

0595 
0598 

0597 

0598 

0599 

0600 
0601 
0802 
0603 
0804 

0605 

0606 
0607 


REP 

122 

LAST 

1051 

15,3236 

4 4712 

0 CM/RCS 

CS 

CNR 


REP 

2 

LAST 

110 

15,3237 

55«617 

1 

TS 

JNDX 

SET NDx FOR POS ROLL, AND CHANGE LATER 

REP 

1 



15,3240 

4 4726 

1 

CS 

2T/1CDU 

RCLLDOT = DELAOG ♦ DELAIG SINM =DELR 





15,3241 

0 0006 

1 

extend 



REP 

T 

LAST 

1045 

15,3242 

7 1701 

1 

mp 

PREL 

DELR/180 = ROOT lCDU/180 = RDOT/lBOO 

REP 

141 

LAST 

1049 

15,3243 

6 0001 

0 

AD 

L 

-2 ROOT T/180 IN L 

REP 

2 

LAST 

110 

15,3244 

55«613 

0 

TS 

-VT/180 

SAVE -2VT/180 HERE 

REP 

11 

LAST 

1049 

15,3245 

4 1664 

0 

CS 

ROLL/180 


REP 

12 

LAST 

1044 

15,3246 

54 021 

0 

TS 

SR 

SAVE (-R/180) /2 

REP 

21 

LAST 

1045 

15,3247 

4 0102 

0 

CS 

CM /FLAGS 


REP 

38 

LAST 

1027 

15,3250 

7 4707 

1 

MASC 

BIT4 

LATSW = 10lD BIT4 





15,3251 

0 0006 

1 

EXTEND 


ROLL OVER TOP S 

REF 

1 



15,3252 

1 3260 

1 

BzP 

GBILCX 

NO, TAKE SIORTBST PATH 

REP 

22 

LAST 

1051 

15,3253 

26 102 

0 

ADS 

CM/FLAGS 

YES, ENFORCE ROL OVER TOP.. (BIT =0) 

REP 

13 

LAST 

1030 

15,3254 

3 1715 

0 

CA 

ROLLC 

(ROLLC/180) /2 

REP 

13 

LAST 

1051 

15,3255 

6 0021 

1 

AD 

SR 

-<R/180> /2 

REP 

2 

LAST 

110 

15,3256 

57«614 

0 

XCH 

LCx/360 

DIFFERENT X RECD HERE. DISCCNT AT 180. 

REP 

1 



15,3257 

1 3320 

1 

TCP 

CCMPAT 

POSSIBIE OVFL ABOVE. 
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ficraif digital autopilot 
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REP 3 LAST 1039 


REP 14 LAST 1051 
REP 3 LAST 1051 


15,326 0 3 4675 1 GBTLCX 

15.3261 6 0000 1 

15.3262 6 1715 0 

15.3263 57=614 0 


USER** 3 PAGE NO. 19 gg S 3 


CA POSl/2 

DCLBLB 
AD RCLLC 

XCH LCx/360 


FORM RCCM/360 


ICNORE POSSIBLE OvPL. 


REP 14 
REP 5 
HEP e 
REP 4 
REP 5 


LAST 1051 
LAST 1051 
LAST 1052 
LAST 1052 
LAST 1052 


15,3264 

15,3285 

15.3266 

15.3267 
15,3270 


3 0021 1 
6 4673 1 
6 4873 1 
57=814 0 
27=614 1 


CA SR 

AD NEG1/2 

AD NEGi/2 

XOI LCx/360 

ADS LCx/360 


REP 3 LAST 1051 
REP 123 LAST 1051 


REP 124 LAST 1052 


REP 4 LAST 1052 


REF 1 


REF 6 LAST 1048 

REF 142 LAST 1051 

REP g LAST 1052 

REP 4 LAST 1052 


REP 5 
REF 7 
REP 143 
REP 144 
REF 2 
REP 258 
REP 1 


LAST 1052 
LAST 1052 
LAST 1052 
LAST 1052 
LAST 1051 
LAST 1049 


8 LAST 1052 


0642 REP 9 LAST 1052 

0643 

0644 REP 1 LAST 1052 

0645 REP 10 LAST 1052 


0648 REP 10 LAST 1048 

0647 REP 1 


A0648 

0649 

0650 REP n LAST 1052 


0651 REP 12 LAST 1052 


0652 REP 6 LAST 1049 


15.3271 

15.3272 

15.3273 

15.3274 

15.3275 

15.3276 

15.3277 

15.3300 

15.3301 

15.3302 

15.3303 

15.3304 

15 . 3305 

15 . 3306 

15.3307 

15.3310 

15.3311 

15.3312 

15.3313 

15.3314 

15.3315 

15.3316 

15.3317 


11=813 0 
6 4712 1 
1 3275 0 

6 4712 1 
0 0006 1 

7 1813 0 
0 0006 1 

7 3787 0 
0 0008 1 
11=506 1 
54 001 1 
11=614 1 

3 4675 1 
1 3310 1 

4 4675 0 
6 1614 0 

8 0001 0 
54 001 1 
1 3320 1 
50 000 1 
4 4874 1 
6 0000 1 
27=614 1 


TCP CCMPAT 
TRWGXPI INDEX A 

CS HALPPR 

DCU8UB 

ADS LCX/360 


15.3320 3 1614 0 CCMPAT 

15.3321 0 0008 1 

15.3322 7 1506 1 

15.3323 55=6 14 1 


CA LCx/360 

EXTEND 
MP CALPA 

TS LCX/360 


15.3324 11=700 0 

15.3325 0 3714 0 


15.3326 0 3327 1 

15.3327 3 1614 0 

15.3330 55=614 1 

15.3331 55«713 1 


♦1 

LCX/360 

LCx/360 

PAXERRi 


Pom -R/360 


DOES SN(-VT) <VT/180> (VT/180) <180/<4 Ai TTCOSALPA)) ♦ X/36O 


IGNORE OVPL 
-R/360 

LCx/360 = RCCM/360 -R/380 RANGE <- 1,1 ) 


♦ SGN(X) / 2 


OVPL » 


CCS -VT/180 

AD CNE 

TCP +2 

AD CNE 

extend 

MP -VT/180 

EXTEND 

MP 1/ieAl 

extend 
D v CAIJ'A 

TS L 

CCS LCx/360 

CAP POSl/2 

TCP +2 

CS POSl/2 

AD LCX/360 

AD L 

TS L 


CMMPMOD 

DzCALLi 


WKE SHORTEST ANGULAR PATH 
(BASED CN SINGLE JET ACCELERATION) 


C(-VT/180> = -2 VT/180 


= 180/(16 Ai TT > 


IS LCx/360 IESS THAN 180 DEG 


YES, GO CN. 

NO, SHIFT X BY - SGN(X) 2 PI 
*A YIELDS -1/2 


CORRECT FOR ASSUMBD COORD TURN. 


COS ALFA 

SCALED LCx CK HERE. 


POUR POSSIBILITIES HERE 
EXIT, SETTING JETAG=0 . < CCA >=0 ) 

all 3 axes already done. 

0 LESS THAN .05. CA POS. CONTINUE 
a GEO .05. CONTINUE IN CM/RCs 
OCMPMCD=-o. DAMPING ONLY. SET ICx=0 
SAVE LCx FOR FDAI AND EDIT.! /360> 


I 



ill 
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USRR.S PAGE NO 20 


0653 

0654 
•055 

0656 

0657 
0656 
0559 
0660 
MSI 
M82 


REP 

REP 

REP 

REP 


LAST 1052 
LAST 1052 
LAST 1053 


LAST 1053 


REP T LAST 1053 


REP 


LAST 110 


15.3332 

15.3333 

15.3334 

15.3335 
15,3338 
15,3337 

15.3340 

15.3341 

15.3342 

15.3343 


3 1613 
54 021 
3 0021 
55*570 
57*813 
0 0006 
7 1613 
0 0006 
7 3767 
55*816 


CA 

TS 

CA 

TS 

XCH 

EXTEND 

MP 

EXTEND 

MP 

TS 


-VT/180 

SR 

SR 

-VT/180® 

-VT/180 


-VT/180 


180/8ATT 

VSQ/4API 


R0663 


IS SCNCVTl ( (I8O/4A1 TT) VT/180 VT/180 - .5 BUPLIM/360 > -X/360 


MSS 

MSS 

MST 

MSB 

0669 

MTO 

MT1 

MT2 

MT3 

MT4 

MT5 

MTS 


REP 

REF 

REP 

REP 


1 

145 
8 

146 


LAST 1052 
LAST 1053 
LAST 1053 


147 

13 

2 


LAST 1053 
LAST 1052 
LAST 1053 


15.3344 

15.3345 

15.3346 

15.3347 

15.3350 

15.3351 

15.3352 

15.3353 

15.3354 

15.3355 

15.3356 

15.3357 


6 0000 
4 0000 
6 3773 
54 001 
11«613 
4 0001 
1 3354 
3 0001 
6 1614 
6 3773 1 
0 0006 1 
6 3374 1 


WHICHALP DCLPLE 
CCM 


AD 

TS 

CCS 

CS 

TCP 

CA 

AD 

AD 

EXTEND 

BzMP 


BUPLIM 

L 

-VT/180 

L 

♦2 

L 

LCx/380 

BUPLIM 


REFLECT 


RMTT 


IS SGN(VT) < (I 8 O/ 4 A 1 TT) VT/180 VT/180 - .5 BUFLIM/380 > -X/360 


MT9 

0660 

MSI 

MB2 

M83 


REP 


LAST 1053 
LAST 1053 


REP 


15,3380 

15.3361 

15.3362 

15.3363 

15.3364 


4 0000 0 
6 3773 1 
6 3773 1 
0 0006 1 
6 3403 0 


CCM 

AD BUPLIM 

AD BUPLIM 

EXTEND 
BZMP DZ 1 


R06 84 


IS POINT WITHIN VELOCITY Pz 7 


6685 

MBS 

M8T 

0688 


HEP 

REP 


LAST 1053 


REP 


15.3365 

15.3366 
15,3387 
15,3370 


3766 1 
1616 1 
0006 1 
3676 0 


CS VSCMIN 

AD VSO/4API 

EXTEND 

BzMP DZCALL 


R0689 


POINT IS IN BUFFER ZCNE. THRUST TO X AXIS. 


M90 

M91 

M92 


HEP 

REP 

REP 


LAST 1051 
LAST 111 


15.3371 

15.3372 

15.3373 


4 1617 1 
55*820 0 
0 3456 0 


CS 

TS 

1C 


JNDX 

JNDX1 

OVRLINEl 


0699 

0700 

0701 


REP 

REP 

REP 


9 LAST 1053 
10 LAST 1053 
IT LAST 1053 


15 . 3374 

15.3375 

15.3376 


4 1613 0 
55*613 0 
54 021 0 


REFLECT 


CS 

TS 

TS 


-VT/180 

-VT/180 

SR 


GET - 2 VT/180 

GET -VT/180, LEAVE -VT/360 IN SR FOR DZ 
DIAGNOSTIC **** 

NOW CONTENTS OP -VT/180 AS LABELED 
B(A) = -2VT/180 

- .5 BUFLIM/380 POS 7 
FOR SECOND BUKI, Al 
=BuFLIM /( 2 360) 


POINT (X,V> IN LHP. 

+ .5 BUFLIM/ 36 O NEG 7 

POINT <X,V) IN RHP. 

IS VSO/ 4 API - (VSO/ 4 API) MIN NEG 7 

YES. 

REFLECT LHP INTO RHP REL TO TERM CCNTR 
-VT/360 SAVED FOR DZ. 


Assewou? B8VISICW 249 OP AO C PROGRAM COLOSSUS BY RASA 2021111-041 
04 BOSY DIGITAL AUTOPILOT 


RBP 14 IAST 1053 15,3377 4 1614 1 

REP is LAST 1054 15,3400 55«614 1 

REP 4 IABT 1053 15,3401 4 161T 1 

REP 5 I AST 1054 15,3402 55«81T 1 


CS LCX/380 

T3 LCX/380 

CS JNPX 

TS JNDX 


IS VSO/4API - <VSO/4API> MIN NEG 


2 LAST 1053 
4 LAST 1053 


15.3403 4 3768 1 DZl 

15.3404 6 1816 1 


15.3405 0 0008 1 

15.3406 6 3410 1 


w * 15,3407 1 3415 0 

IS X/300 - XMIN/36O -VI/36O NEG j 


CS VSOMIN 

AD VSO/4API 

Bjcie® 

BZ-P DZ2 

TCP MlXVTEST 


REP 

1 


15,3410 

4 

37T1 

1 0Z2 

CS 

XMIM/360 

REP 

10 

LAST 1054 

15,3411 

6 

1614 

0 

AD 

LCx/360 

REP 

18 

LAST 1053 

15,3412 

6 

0021 

1 

AD 

SR 




15,3413 

0 

0006 

1 

extend 


REP 

2 

LAST 1053 

15,3414 

6 

3678 

0 

B 

DzPALL, 


IS XD/38O - VM/38OK - XS/36O 


0719 REP 

0720 REP 


0721 REP 

0722 REP 


LAST 1054 
LAST 1053 


0723 REP it 

0724 REP 2 


A0725 

0726 HEP 


LAST 1054 
LAST 1054 
LAST HO 


0727 

0728 

0729 REP 


0730 HEP 

0731 


LAST 1054 


0732 REP 

0733 


0734 REP 1 

0735 

0736 

0737 REP 1 

0738 REP 1 

0739 REP 11 LAST 1053 

0740 

0741 

0742 REP 2 LAST 1053 

0743 REP 2 LAST ill 


15,3415 

4 1617 1 

nwxvtest Cs 

JNDX 

15,3416 

55*620 0 

TS 

JNDXl 

15,3417 

4 3773 0 

Cs 

XS/360 

15,3420 

8 1616 1 

AD 

VSQ/4API 

15,3421 

6 1614 0 

AD 

LCx/360 

15,3422 

55*6 15 0 

TS 

XD/36O 

15,3423 

8 3772 0 

AD 

-VM/36OK 

15,3424 

4 0000 0 

CCM 


15,3425 

0 0008 1 

EXTEND 


15,3426 

8 3434 1 

B2MP 

MAXVTIM1 

15,3427 

3 1615 1 

CA 

XD/360 

15,3430 

0 0008 1 

EXTEND 


15,3431 

7 4675 0 

MP 

KTRCs 

15,3432 

20 001 1 

DDCUB L 


15,3433 

0 3437 1 

TC 

GETCNl 

15,3434 

0 0008 1 

MAXVTIMl EXTEND 


15,3435 

22 007 0 

zo 


15,3436 

4 3772 1 

Cs 

-VMT/180 

15,3437 

55*567 0 

CS3TCN1 TS 

VDT/180 

15,3440 

6 1613 1 

AD 

-VT/180 

15,3441 

6 0000 1 

double 


15,3442 

0 0006 1 

EXTEND 


15,3443 

7 3767 0 

MP 

180/8ATT 

15,3444 

55«621 1 

TS 

TCNl 




20*35 CCT. 28,1968 DAPCSM .195 PACB 1054 
U®R*S PAGE NO. 21 E6 S3 


IS VSO/4API _ (VSQ/4API) MIN NEO * 


YES, 00 TEST PURTHER 
NO 


XMIN/380 = 4/380 


CCSR) = -VT/36O 

IS X/36O - XMIN/36O -VT/360 NEG * 
yes, in Dz. exit sbttino jetog=o. 


NCVr CAN SET JNDXl POR TCN2 JETS. 
XS/360 = (XMIN -YMIN/K) /36O 


XD/360= X/360 +VSO/4API x INTERCEPT 
MT CIxD/360) = (XD - XS) /360 
X INTERCEPT FOR MAX V (VM) 


YES, THRUST TO VM 


GO SAVE PRH3ICTED DRIFTING VELOCITY. 
INSURE THAT O IS POS As WG. 

®T +0 AS TOG 
VDT/180 OR VMT/180. 


TCNl / 4T 
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U®R«S PACK NO. 22 Efl S3 


0745 

REP 

1 



0746 

REF 

1 



0747 

REP 

209 

LAST 

1046 

0748 

HEP 

2 

LAST 

1053 

0749 

REP 

4 

LAST 

1054 

0750 

HEP 

T 

LAST 1054 

0751 

HEP 

3 

LAST 1054 

0752 

REP 

1 



0753 

REP 

12 

LAST 1054 

0754 

REP 

2 

LAST 

1054 

0755 

REP 

200 

LAST 

1048 

0756 

REP 

4 

LAST 

1055 

0757 

REP 

3 

LAST 

1055 

0758 





0759 





0760 

REP 

3 

LAST 

1054 

0761 





0762 

REP 

2 

LAST 

110 

0763 





0764 





0765 

REP 

1 



0766 

HEP 

3 

LAST 

1055 

07681 

REP 

8 

LAST 

1055 

07662 

REP 

5 

LAST 

1055 

0767 

REP 

4 

LAST 

1055 

0768 





0769 

REP 

4 

LAST 

1055 

0770 

REP 

4 

LAST 

1054 

0771 

REP 

5 

LAST 1055 

07711 





07712 

REP 

1 



0772 

REP 

13 

LAST 

1055 

0773 





0774 

REP 

5 

LAST 

1055 

0775 

REP 

5 

LAST 

1055 

0776 

REP 

18 

LAST 

1054 

0777 





0778 

REF 

148 

LAST 

1053 

0779 





0780 

REP 

6 

LAST 

1055 

0781 





0782 

REP 

1 



0787 

REP 

1 



0788 

REP 

1 




15.3450 

15.3451 

15.3452 

15.3453 

15.3454 

15.3455 


15,3456 

15.345T 

15.3460 

15.3461 

15.3462 

15.3463 

15.3464 

15.3465 

15.3466 
15.346T 


15,3470 

1S.34T1 

15.3472 

15.3473 

15.3474 

15.3475 


15.3476 

15.3477 

15.3500 

15.3501 

15.3502 

15.3503 

15.3504 

15.3505 

15.3506 

15.3507 

15.3510 

15.3511 

15.3512 

15.3513 

15.3514 

15.3515 

15.3516 

15.3517 


0 0008 

1 

EXTEND 



6 3450 

0 

b nw 

OVRLINB 


0 3462 

1 

TC 

CETCN2 

RESET Q POS IF CAm FROM MAXVTIMl 

10 002 

1 

CVRLINE CCS 

0 


1 3456 

1 

TCP 

D/RLINEl 


3 1620 

1 

MAXVTIM2 CA 

JNDX1 

ABOVE VM, SO THRUST DOWN 

55*617 

1 

TS 

JNDX 


4 1621 

1 

CS 

TCNl 


1 3481 

0 

TCP 

CVRLINE2 +1 


4 1613 

0 

(VRLINEl CS 

-VT/180 

DRIFT AT V 

55*567 

0 

TS 

VDT/180 


3 4714 

1 

CVRLINE2 CA 

ZERO 


55*621 

1 

TS 

TCNl 


3 1567 

1 

GBTCN2 CA 

VDT/180 

VDT/180, OR VMT/180 OR VT/180 

6 0000 

1 

double 



0 0006 

1 

EXTEND 



7 3767 

0 

MP 

I8O/8ATT 


6 0000 

1 

DOUBLE 


FOR SECOND BURN, Ai 

55*807 

0 

TS 

TCN2 

- TCN2 / *T 

4 0000 

0 

CCM 



0 0006 

1 

extend 



6 3476 

1 

B2MP 

getofe 


55*607 

0 

TS 

TCN2 


3 1617 

0 

CA 

JNDX 


55*620 

0 

TS 

JNDX1 


4 1607 

0 

GETOPP CS 

TCN2 

TCN2 / 4T 

0 0006 

1 

EXTEND 



7 1567 

0 

MP 

VDT/180 

VDT/180, OR VT/180, OR VMT/180 - 

55*615 

0 

TS 

XD/38O 

USE AS TEMP 

4 1567 

0 

CS 

VDT/180 


0 0006 

1 

ext®id 



1 3520 

1 

BzP 

TOFFCVFL 

CM IT THE DIVIDE IF DEN = 0. 

6 1613 

1 

AD 

-VT/180 


0 0006 

1 

Extend 



7 1621 

1 

MP 

TCNl 

TCNl /*T 

6 1615 

1 

AD 

XD/36O 

TEMP = -VDT/180 / 2 TCN2 

6 1614 

0 

AD 

LCX/360 


22 007 

0 

2L 



56 001 

0 

XCH 

L 

TEST THE DIVIDE 

0 0006 

1 

extend 



11*567 

0 

DV 

VDT/180 


0 0006 

1 

EXT®® 



1 35 22 

0 

BZP 

GET0FF2 

DIVIDE CK 

3 4740 

0 

TOFFCVFL CA 

2JBTT 

CVET,, USE 2T FOR CCNVENIENCB. 

1 3527 

0 

TCP 

TIMSCAL 



I 




1 
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8798 

RES' 

149 

LAST 1055 

15,3522 

58 001 

0 

CETCFP2 

XCH 

L 

GET NUMERATOR. 

0797 




15,3523 

0 0008 

1 


EXTEND 



0798 

REP 

T 

LAST 1055 

15,3524 

11*587 

0 


D V 

VDT/180 

CIA) = TOPP / 2T 

0799 




15,3525 

0 0006 

1 


Extend 



0800 

REP 

2 

LAST 1055 

15,3528 

7 4740 

1 


MP 

2JETT 


0801 

REP 

2 

LAST 110 

15,3527 

55*605 

1 

TIMSCAL 

TS 

TOPE 

IN CS 

0802 

RPr 

1 


15,3530 

3 3770 

1 


CAP 

4 JETT 


0803 




15,3531 

0 0008 

1 


EXTEND 



0804 

REP 

6 

LAST 1055 

15,35 32 

7 1821 

1 


MP 

TCNl 

C(TCNl) = TCNl / 

0805 

REP 

T 

LAST 1056 

15,35 3 3 

55*821 

1 


TS 

TCNl 

IN CS 

0808 

REP 

2 

LAST 1056 

15,3534 

3 3770 

1 


CAP 

4JETT 


0807 




15,3535 

0 0008 

1 


EXTEND 



0808 

REP 

5 

LAST 1055 

15,3538 

7 1807 

0 


MP 

TCN2 

CITCN2) = T0N2 / < 

0809 

REF 

fl 

LAST 1056 

15,3537 

55«60T 

0 


TS 

70*2 

IN CS 

0810 

REP 

201 

LAST 1055 

15,3540 

3 4714 

1 


CA 

ZERO 

CANNOT REDO AFTER 

0811 

REP 

9 

LAST 1051 

15,3541 

55*711 

0 


TS 

JET m 

SET to TO STOW ROT 


4T 


4T 


3TST. HJSHD GCNE 
IP CALLED. 

CAUSE THE TM OP BODY RATES VIA UPBuFP TO BB 
INITIALIZED. ALSO CAUSE NEEMES TO BE DCNE CN NEXT 
AND CN ALTERNATE PASSES THROUGH CM/DUMPR. 


REP 125 
REP 2 


LAST 1052 
LAST 1039 


15.3542 3 4712 1 

15.3543 54 305 0 


CA 

TS 


CNE 

SW/NPX 




11 
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■ uion a n« no 


P081T 

R0818 

R0820 

R0822 

R0824 

R0B2B 

R0828 

R0830 


ENTBR^WTIH THREE TIME INTERVALS AND THE CORRESPONDING JET CODE INDEXES IN ERASEABLE LOCS TCNl, TOPE, TCN2, JNDX 
JNDX1 SECTION PROCESSES TINE INTERVALS FOR WTLST CALLS AND ASSJRES THAT WTLST CALLS ARE MADE CNLY 
<1> FOR POS INTERVALS GREATER THAN A SPECIFIED MINIAM ( HERE CHOSEN AS 2 CS) AND 

(2) FOR THE INTERVALS THAT WILL BE EXECUTED WITHIN THB TIMS REMAINING IN THE SAMPLE INTERVAL T l!«) . 
TIMETST ESTABLISHES 6 LCCS CONTAINING JET CODES AND CORRESPONDING TINE INTERVALS. THUS* TCNl, TlBITS, 

TCFP, TBITS, TCN2, T2BITS. OP THESE THE FIRST 2 LOCS ARE TEMPORARY, FOR MEDIATE ACTION, IN OaiERAL. 

SECTION JBICALL BELOW PROCESSES THIS LIST. 


0831 

REF 

10 

LAST 

1051 

15,3544 

0832 

REP 

6 

LAST 

1052 

15,3545 

0833 

REP 

T 

LAST 1057 

15,3546 

0834 

HEP 

3 

LAST 

1051 

15,3547 

.0835 

A0838 

REF 

1 



15,3550 

0837 

REF 

4 

LAST 

1057 

15,3551 

0838 

REP 

48 

LAST 

1014 

15,3552 

0839 

REF 

8 

LAST 

1056 

15,355 3 

0840 





15,3554 

0841 

REF 

1 



15,3555 

0842 

REF 

9 

LAST 

1055 

15,3556 

0843 

REP 

3 

LAST 

1049 

15,3557 

0844 

REF 

2 

LAST 

111 

15,3560 

0845 

REF 

9 

LAST 

1057 

15,3561 

0846 

REP 

5 

LAST 

1057 

15,3562 

0847 





15,356 3 

0848 

REF 

1 



15,3564 

0849 

REP 

202 

LAST 

1056 

15,3565 

0850 

REP 

1 



15,3568 

0851 

REF 

126 

LAST 

1056 

15,3567 

0852 

REF 

10 

LAST 

1057 

15,3570 

0853 

REP 

49 

LAST 

1057 

15,3571 

0854 

REF 

3 

LAST 1056 

15,3572 

0855 





15,3573 

0858 

REP 

1 



15,3574 

0857 

REF 

4 

LAST 

1057 

15,3575 

0858 

REP 

0 

LAST 

1057 

15,3576 

0859 





15 , 3577 

0860 

REF 

1 



15,3600 

0861 

REP 

203 

LAST 

1057 

15,3601 

0862 

REP 

1 



15,3802 

0863 

REP 

127 

LAST 

1057 

15,3603 

0864 

REF 

5 

LAST 

1057 

15,3604 

0865 

REF 

50 

LAST 

1057 

15,3605 

0666 

REP 

7 

LAST 

1056 

15,3606 

0867 





15,3607 

0868 

REF 

1 



15,3810 


3 0025 

0 

TDBTST CA 

TU«1 

6 4875 

1 

AD 

POS1V2 

6 4675 

1 

AD 

POSl/2 

27«712 

0 

ADS 

TUSED 

3 3765 

0 

CA 

-T-3 

27*712 

0 

ADS 

TUffiD 

4 4711 

0 

CS 

TWO 

6 1621 

0 

AD 

TCNl 

0 0006 

1 

EXTS® 


6 3567 

0 

B2MP 

TIMBTSTl 

51*617 

0 

INDEX 

JNDX 

3 3225 

1 

CAP 

P/RJCCDS 

55*822 

1 

TS 

TlBITS 

3 1821 

0 

CA 

TCNl 

27 <*712 

0 

ADS 

TUSED 

0 0006 

1 

EXTEND 


6 3571 

1 

B2MF 

TOPFIEST 

3 4714 

1 

CA 

zero 

1 3622 

0 

TCP 

TISETST3 

4 4712 

0 

TIMBTSTl CS 

CNE 

55*621 

1 

TS 

TCNl 

4 4711 

0 

TOPFIEST CS 

TWO 

6 1605 

0 

AD 

TOFF 

0 0006 

1 

EXTEND 


6 3603 

1 

BZMP 

TM5TST2 

3 1605 

0 

CA 

TOFF 

27*712 

0 

ADS 

TUSED 

0 0006 

1 

EXTEND 


6 3605 

1 

B2MP 

TCNzTEST 

3 4714 

1 

CA 

ZERO 

1 3624 

0 

TCF 

TIMETST4 

4 4712 

0 

TIMBTST2 CS 

CNE 

55*605 

1 

TS 

TOFF 

4 4711 

0 

TCN2TEST CS 

TWO 

6 1607 

1 

AD 

TCN2 

0 0006 

1 

EXTEND 


6 3625 

0 

BZMF 

TIMBTSTS 


CORRECT FOR POSSIBLE TINBi OvFL. 

OVFL GUARANTEED. 

B(TUSED) = -TUSED =-QLTIMBl 

=-T +2 -5 ( SEE SETJTAG) 

THE +2 REQUIRED FOR PROPER BRANCH. 
TUSED = TIM3(K)-TINB(K-1)-Tt2 

USE 2 SINCE TIME3 UNCERTAIN TO 1 
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LAST 1055 
LAST 1057 
LAST 110 
LAST 1057 
LAST 1057 


HH' 1 
HEP 204 
REP 2 

REE 11 
REP 128 
REP « 
HEP 129 
REP ( 


LAST 1057 
LAST 1057 
LAST 1057 
LAST 1057 
LAST 1057 
LAST 1058 
LAST 1058 


15.3811 

15.3812 

15.3813 

15.3614 

15.3615 
15,3816 
15,3617 
15,3820 

15.3621 

15.3622 

15.3623 

15.3624 
15,3825 
15,3626 


51-620 1 
3 3225 1 
55-810 0 
3 1607 1 
27-712 0 
0 0006 1 
6 3827 1 

3 4714 1 
1 3628 1 
55-821 1 

4 4T12 0 
55-605 1 
4 4712 0 
55-607 0 


CA 

TCP 

TI*TST3 TS 
CS 

TI>ETST4 TS 
TIM3TST5 Cs 
TS 


neex jnpxi 

CAP P/RJCODG 
TS T20ITS 

CA 1W2 

ADS TUSED 

BXTEND 

BZ4P JETCALLi 
CA ZERO 

TCP TIMBTST5 »1 
TS TCHl 

CS CUB 

TS TOFF 

CS CNE 

TS TCN2 


^ CrlC>t j8 ] CA LL EXAMINES CONTENTS OP JET THUS IN LIST, ESTABLISffiS WTLST ENTRIES AND EXECUTES CORRESPOND TNO 
JET ODES A POSITIVE N Z NUfflER IN A TIME REGISTER INDICATES THAT A WILST CALL IS TO TOMaST^ iS^^^ 

A +0 INDICATES THAT THE TIME INTERVAL DOES NOT APPLY, Bur THE CORRESPONDING JET BITS ARE TO BE 
SWSCUlH^ A NEO NIMBER INDICATES THAT THE TIME INTERVAL HAS BEEN PROCESSED. IN EVENT CF ,0 OR -l THE 
WN E »« > «20I^re^ aiyreR IS KXAMINH0 F0R P0SSIBLE AC TI«. THUS JET BITS TO BE EXECUTED MAY CCME TOM MORE 


REP 205 
REP 2 
REE 2 
REP 2 

RES' 12 

REP 259 
REP 1 
REP 3 
REP 130 
HEP T 
REP 260 
HEP 2 
REP 4 
REP 131 
REP 10 
HEP 261 
REP 3 
REP 5 
REP i 
HEP 150 
REP 6 
REP 151 
REP 132 
REP 49 
REP 40 
REP i 
REP 1 
REP T 


LAST 1058 
LAST no 
LAST 110 
LAST HO 
LAST 1058 
LAST 1052 


LAST 1058 


15,3627 

15.3630 

15.3631 

15.3632 

15.3633 

15.3634 

15.3635 

15.3636 

15.3637 

15 . 3640 

15.3641 

15.3642 

15.3643 

15.3644 

15.3645 

15.3646 
15,3847 

15.3650 

15.3651 

15.3652 

15.3653 

15 . 3654 

15.3655 

15.3656 
E6.1661 

15 . 3657 

15.3660 

15.3661 


3 4714 1 
55-611 1 
55-612 1 
55-608 1 
53-822 1 
10 000 0 
1 3652 1 
23-612 0 

4 4712 0 
53-606 1 
10 000 0 
1 3652 1 
23-612 0 
4 4712 0 
53-610 0 
10 000 0 
1 3652 1 
23-612 0 
0 3661 0 
56 001 0 
27—612 1 
56 001 0 
6 4712 1 
0 5140 1 


03667 0 
32066 0 
3 1612 0 


JETCALLi CA 
TS 
TS 
TS 

DXCH 

CCS 

TCP 

JBICALL3 LXCH 
CS 
DXCH 
CCS 
TCP 
LXCH 
CS 
DXCH 
CCS 
TCP 
LXCH 
1C 

JE1CALL2 XCH 
ADS 
XCH 
AD 
TC 

ERANK= 

2CADR 


zero 

cumo 

nujbt 

tbits 

TCNi 

A 

JETCALL2 

NUJET 

ONE 

TOFP 

A 

JBTCALL2 

NUJET 

ore 

TCN2 

A 

JEICALL2 

NUJET 

JETACTN 

L 

NUJET 

L 

CNE 

WAITLIST 

AOO 

JEICALL 


CALL WTLST 

WTLST ENTRIES CCME HERE TOM JBTCAIL 


CALL WTLST 


CALL WTLST 


C(A) — +0 

SAVE JET BITS FOR AFTER WTLST CAIL 


RESTORE FOR CCS 


JETACIN CA 


core HERE WHEN DESIRED JET CODE IS KNOWN 
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0921 




15,3662 

0 0006 

1 


Rxraro 


NO NEED TO SAVE OLD CODES 

0922 

MS' 

4 

LAST 1049 

15,3663 

01 006 

0 


WRITE 

ROLLJETS 

SET RCHAN TO NEW BIT CCNPIG. 

0923 

BSP 

3 

LAST 1058 

15,3664 

11«611 

1 


CCS 

CUTDAG 


0924 

REP 

55 

LAST 1051 

15,3665 

0 5213 

1 


1C 

DA SKIVER 


0925 

HEP 

2 

LAST 1045 

15,3666 

0 3724 

0 

RCLUXMP 1C 

CM /FDA I R 


A0920 









EDIT DUMP AT ABO/E LOCATION. 

R0927 

WAITLIST ENTRIES COE HERE. 







0928 

REP 

42 

LAST 982 

15,3667 

3 4711 

1 

JETOALL 

CAP 

BIT2 

CM/DSTBY =1030 BIT2 

0929 

HEP 

4 

LAST 1059 

15,3670 

55«611 

1 


TS 

outdag 

SIGNIFY WTLST ENTRY 

0930 

REE 

23 

LAST 1051 

15,3671 

7 0102 

0 


MASK 

CM /FLAGS 

IS SYSTEM DISABLED , 

0931 




15,3672 

0 0006 

1 


EXT©® 



0932 

REP 

2 

LAST 1058 

15,3873 

1 3662 

1 


BzP 

JBTAC1N +1 

YES, CXJENCH ROLL JETS, IP CN AND EXIT 

0933 




15,3674 

22 007 

0 


ZL 


NO, CCNTINUB. 

0934 

REP 

1 


15,3675 

1 36 36 

0 


TCP 

JETCALL3 

CIA) POS, CIL) =*0 

R0935 

DEAD JJCNB entries ccme here 







09351 

HEP 

11 

LAST 1052 

15,3676 

4 1700 

0 

DzCALL 

CS 

OCAPMCD 

POSSIBIE VALUES OP CMDAPMCD’ -l, +o. 

09352 

REP 

T3 

LAST 1038 

15,3677 

7 4712 

0 


MASK 

BITl 


09353 

HEP 

152 

LAST 1058 

15,3700 

54 001 

1 


TS 

L 

C(L)=0 for -0 




t05r<f-ft 


09354 

REP 

262 

LAST 

1058 

15,3701 

50 000 

1 

INDEX 

A 

09355 

REP 

4 

LAST 

1045 

15,3702 

3 1714 

1 

CA 

RCLLTM 

09356 

REP 

153 

LAST 

1059 

15,3703 

50 001 

0 

INDEX 

L 

09357 

REP 

263 

LAST 

1059 

15,3704 

54 000 

0 

TS 

A 

09358 

REP 

154 

LAST 

1059 

15,3705 

6 0001 

0 

AD 

L 

09359 

REF 

5 

LAST 

1045 

15,3706 

0 2542 

0 

TC 

ANGO/COR 

0936 

REP 

4 

LAST 

1049 

15,3707 

55«717 

0 

TS 

ROLLHCLD 

A09361 










09362 

REP 

206 

LAST 

1058 

15,3710 

3 4714 

1 

CA 

ZERO 

0937 





15,3711 

0 0006 

X 

EXTEND 


0938 

REP 

5 

LAST 

1059 

15,3712 

01 006 

0 

WRITE 

ROULJETS 

0939 

REP 

8 

LAST 1056 

15,3713 

55«567 

0 

TS 

VDT/180 

0940 

REP 

10 

LAST 

1058 

15,3714 

55«711 

0 DzCALJLl 

TS 

jeiag 

0941 

REP 

1 



15,3715 

0 3668 

1 

1C 

RCLXJXJMP 


EHASBLE ORDER’ ROLLTM.ROLLC.RaLC + l . 
GET RCLL/180 OR ROUT) C/360). 


IF C(L>=1, STORE «ROJjC« IN «Loc. 
(BOIH MJST BE SCALED DEG/180) 
CCA>=Rai,/l80 OR 2 ROLLC . 

IF M)APMCD =-0, SAVE ROLL ANGI.E, 

otherwise, save Raj. cotmand. 


CCME HERE IF IN Dz, AND CANCEL JETS. 
INHINT NOT NEEDED HERE. 

TORN OFF ALL ROLL JETS. 

SET =0 TO SHOW IN DEAD ZCNE. 

CCME HERE WITH CCA)=o. 


I 

I 
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R0943 CALCULATE BY INTEGRATION THE ROLL ERROR BETWE0N THE 2 SEC CM/RCS UPDATES . DISPLAY ATTITUDE ERRORS AS ROLLONS’ 

Rosas atm cap' display cnly roll attitude error. 

R 0948 ext atm cap* present 3 attitude errors relative to the appropriate bcdy axes each .1 sec. 

R0948 ROLL RQLLC-ROLL 

R0949 PITCH ALP AC -ALFA 

R0950 YAW BETAC-BEIA 

R0951 During ENTRY, TIC PDA! NEHXES have PULL SCALE OP 67.5 deg IN ROLL AND 16.875 deg in pitch and yaw. 


R0953 

THE 

SUBROUTINE NEEDIER expects (ANGLE/180) and 

SCALES 

TO 18.875 DEG 

full scale. 

A0958 










CCME HERB 

EACH .1 SEC. (ODAPMCD=+i COMBS BELOW) 

0959 

RET* 

7 

LAST 

1045 

15,3716 

4 1705 

0 

CM /FDA I 

CS 

PHIDOT 

INTEGRATE ROLL ERROR « TWEEN 2 SEC UPDATES 

0960 





15,3717 

0 0006 

1 


extend 



0961 

REP 

8 

LAST 

1052 

15,3720 

7 1506 

1 


MP 

CALEA 

POR ASSUMED COORDINATION. 

0962 





15,3721 

0 0006 

1 


Exre® 



0933 

REF 

6 

LAST 

1049 

15,3722 

7 4675 

0 


MP 

KALE 


0964 

REF 

7 

LAST 

1052 

15,3723 

27*713 

1 


ADS 

PAxERRi 

ROLL ERROR/ 36 0 . OVPL CK. 

A0965 










EDIT DUMP 

AT ABQ/E LOCATION. 

0966 

REF 

7 

LAST 

1060 

15,3724 

3 4675 

1 

CM/FDAIR 

CA 

KALE 


0967 





15,3725 

0 0006 

1 


extend 



0968 

REF 

8 

LAST 

1060 

15,3728 

7 1713 

1 


MP 

paxerri 

FULL SCALE POR FDAI (ROLL) IS 67.5 D 

0969 

REF 

1 



15,3727 

55*476 

1 


TS 

paxerr 

,25 (ROLL ERROR/180) FOR FDAI NEEDLE. 


AOSTO 
A09T1 
A 0972 
A 0973 
A097 4 
A0975 


PROGRAM TO FILE BCDY RATES FOR TM CN CNE PASS AND 
TO UPDATE THE NEEDLE DISPIAY CN THE NEXT. 
SYNQLRCNIzATICN WITH CM/RCS IS USED SO THAT THE TM 
IS DONE WITH THE ROLL SYSTEM AND NEEDLES START CN 
THE SuBsECUENT PASS. 



0976 

REP 

3 

LAST 

1056 

15,3730 

4 0305 

0 

C M/IXJMPR cs 

SW/NDX 

COBINED ALTERNATION SWITCH AND PIIE 

09761 

REF 

4 

LAST 

1060 

15,3731 

54 305 

0 

TS 

SW/NDX 


0977 





15,3732 

0 0006 

1 

EXTEND 


INDEX. 

097 8 

REP 

1 



15,3733 

6 3737 

1 

B2MF 

CMIMFILE 

PILE STARTS WITH SW/NDX *1 AND GOES TO 

A0979 










PNDBUE. 

A0980 










INDEX IS POS FOR NEFDfBS 

0981 

REF 

38 

LAST 

985 

15,3734 

0 4633 

0 

TC 

ibnkcall 


0982 

REF 

9 

LAST 

983 

15,3735 

42404 

1 

CADR 

nefdler 


0983 

REF 

1 



15,3736 

0 3755 

0 

TC 

CM /END 


A0984 










INDEX IS NET, FOR TM FIIE 

0985 

REP 

39 

LAST 

1035 

15,3737 

6 6214 

0 

CMTMFIIE AD 

THREE 


0986 





15,3740 

0 0006 

1 

EXTEND 



0937 

REF 

1 



15,3741 

6 3745 

1 

BZME 

SAVFNDX 
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0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 
0998 
099t 

0998 

0999 

1000 
. A1001 

1002 

1003 

1004 

1005 

1006 
100T 
100T 

Aiooa 

A1009 

AlOlO 

AlOll 

A1012 

A1013 

A1014 

A1015 

A1016 

AlOlT 

A1018 

A1019 

A1020 

A1021 


RBF 

IT 

LAST 

105T 

15.3T42 

3 0025 

0 

HEP 

3 

LAST 

TO 

15.3T43 

54 304 

1 

SEP 

3 

LAST 

825 

15.3T44 

4 4720 

1 

RBP 

5 

LAST 

1060 

15.3T45 

54 303 

0 





15.3T46 

0 0006 

1 

HEP 

8 

LAST 

1051 

15.374T 

3 1702 

0 

IBP 

8 

LAST 

1061 

15.3T50 

50 305 

1 

REP 

2 

LAST 

TO 

15,3751 

52 324 

0 

REP 

8 

LAST 

1048 

15,3752 

3 1703 

1 

HEP 

T 

LAST 

1061 

15,3753 

50 305 

1 

RBP 

3 

LAST 

1081 

15,3754 

54 325 

1 

HEP 

3 

LAST 

1044 

15,3755 

3 1623 

1 

REP 

19 

LAST 

1054 

15,3756 

54 021 

0 





15,3757 

0 0006 

1 

REP 

1 



15 , 3760 

3 3764 

1 

REP 

25 

LAST 

1043 

15,3761 

53«313 

0 

REP 

46 

[AST 

1033 

15,3762 

0 5222 

0 

HEP 

26 

LAST 

1061 

1312 



REP 

T 

LAST 

1040 

15,3763 

03143 

1 





15,3764 

12062 

0 
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initialize the tm list in UPBUPP. 

INITIALIZE COUNTER 
A NEGATIVE NUM3ER. 


CA TIt*l 
TS CMH-nTEE 

Cs thiriebi 

SAVENDX TS W/NDX 
EXTB® 

DCA PRBL 
INDEX 9W/NDX 
DXCH BTOBUP -1 
CA RREL 
INDEX 9W/NDX 
TS BTOBUP +1 ■ 


CM /END CA CM/SAVE 

TS SR 

DOES NOT PROTECT TB*C, SO IN SPSIN/COS 

EXTEND 

DCA 1SIDLER2 
DXCH 1SLOC 

1C RBSUt* 


ERANK= T5LOC 
1SIDLER2 2CADR T5IDLOC 


DEFINE THE FOUXWING 17D REGISTERS IN UPBUFF TO BE 
USED TO TELEMETER CM VEHICLE BCDY RATE INFOBMATICN. 
THE INFORMATICS IS FILED EACH 0.2 SEC, GIVING 15D 
DATA POINTS EACH 1 SEC. TM LIST IS READ TWICE 
EACH 2 SECCNDS. 


THE SEQUENCE IS* 


SP TIME 
SWITCH 

P 

O 

R 

ETC. 


initial tm: 
ALSO INDEX. 
ROLL RATE 
PITCH RATE 
YAW RATE 


CMTMTM = 
SW/NPX = 
BTOBUP = 


UPBUFF 
UPBUFF +1 
UPBUFF +16D 
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P10211 8PACER 

R1022 CONSTANTS USED IN THE ROLL CONTROL SYSTEM 1 

R1023 CONSTANTS AE2 THE FOLLOWING 1 A = 9.1 DEG/SECSQ VM - 20 DBG/SEC 
R1025 XMIN = 4 DSG, VMIN = 2 DSO/SEC, K V 25 aT- 4 55 DBG/SBci ’ 
R102T XfHF s 4 D53Q ’ 25 ’ 1 ~ 4 55 Dea/ SSCSO, 
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1028 

1029 

1030 REP 

1031 

1032 REF 

1033 REP 

1034 

1035 

1036 

1037 REP 
A103T1 
A1038 

1039 

1040 REF 


1041 REF 8 


*** END OP IMpCsM .195 *** 



15,3765 

77464 

1 

-T-3 DEC 

LAST 265 

15,3768 

00012 

1 

VSCMIN DEC 

4728 



2T/TC0U = 

LAST 1054 

15,3767 

23817 

0 

180/&ATT DEC 

15,3772 



-vwr/iao = 

LAST 576 

4740 



2 JETT = 


15,3770 

01440 

0 

4 JETT DEC 


15,3771 

00266 

0 

XM IN/360 DEC 

LAST 1055 

15,3772 

70706 

1 

-VM/36OK DEC 

15,3767 



I/I6A1 = 

LAST 1054 

15,3773 

00133 

0 

XS/360 DEC 

15,3773 



BUFLIM - 

LAST 1060 

4675 



KTRCS = 


-203 

.61050061 B-3 
OCT50 
-61813187 
-VM/380K 
4®CS 
800 
182 

-.22222222 

180/8ATT 

1/15A1 

91 

XS/360 

HALF 


T = 
VI 


CS 


2 SBC, 1CDU = .1 SBC, 

: 1 OBG/®C, INTERCEPT WITH Pz SIDE 


VSO MIN/4 A PI = 4/(4 (9.1) 1B0 , 

T/TOXJ EXP-14 TCDU =.1SEC 
180/<8 l9-ll 4l=t 180/ATT) EXP -3 
= 20 <2l / 180 

Cs 2 <21 100 INTEGER 

Cs 4 <2> 100 INTEGER 

XM IN/36O = 4/ 360 EXP 14 = ig2 INTEGER 

=-20/< 380 1.25)) 

= 180/1 16 Ai TT) 

=180/<16 4.55 4) 

= (XMIN +VI IT-l/K) 1/360 = 2/360 BXP 14 
4/< 2 360) 

KT = ( .25) 2 = .5 
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■0001 
•0002 
•0004 
•0000 
•0008 
•0010 
•0011 
•0012 
•0013 
•0014 
•0015 
•0010 
R001T 
•0018 
•0019 
•0020 
■0021 
•0022 
•0023 
•0024 
•0025 
•0026 
•0027 
•0028 
•0029 
•0030 
•0031 
•0032 
•0033 
•0034 
•0036 
•0038 
•0040 
•0042 
•0043 
■00 4T 
•0048 
•0049 
R0050 
•0051 
•0052 
•00522 
•00525 
•00526 
•0053 
•0054 
•0055 
•0056 
R0058 
•0059 


PfKXXtAM NAM 8 * °°^ ro^BmY P ^^ITB WE DOWN TELBGTRY PROGBAM AND DCWNLINK ERASABLE IXMP PROGRAM FOR THE 

HcoEvsa mis wiu. hot »m ms nmm nomsno 

OP DCMN TBLEMiTRY DATA. 

mod by- kilroy, smith, dewitt 

DATE- 02OCT87 

AUTHORS- KILROY, SMITH, DEWITT, DEWCYF, FAG IN 
LOG SECTION- DOWN-TELEGTRY PROGRAM 

FUNCTIONAL DESCRIPTION- THIS ROUTINE IS INITIATED BY TEIB-ETRY END 

PULSB PROM THE DCWNLINK TELBGTRY CONVERTER. THIS PH, a OCCURS 
AT 50 TIEGS PER SEC! EVERY 20 MS) THEREFORE DCDCWNTM IS 

EXECUTED at these rates, this routine selects the appropriate 

AOC DATA TO BE TRANSMITTED DCWNLINK AND LOADS IT INTO OUTPUT 
CHANNELS 34 AND 35 . THE INFORMATION IS THEN GATED CUT FROM WE 
LGC IN SERIAL PASTICN. 

THIS PROGRAM IS CODED FOR A 2 S3CCND DOwNLIST. SINCE DCWNRUPTS 
OCCUR EVERY 20MS AND 2 AGO CCMPUIER WORDS CAN BE PLACED IN 
CHANNELS 34 AND 35 DURING EACH DOSNarPT THE PROGRAM IS CAPABLE 
OP SENDING 200 AOC WORDS EVERY 2 SECONDS. 

CALLING SEQUENCE- NONE 

PROGRAM IS ENTERED VIA TCP DODCWNTM WHICH IS EXECUTED AS A 
RESULT OP A DOWNBUPT. CONTROL IS RETURNED VIA TCP RESJG WHICH 
IN EFFECT IS A REST*. 

SUBROUTINES CALLED- NONE 
NORMAL EXIT MODE- TCP RESUME 
ALARM OR ABORT EXIT MODE- NONE 

BESWRT tTTsi START AMI RESTART THE .STARTSUB. SUBROUTINE WILL INITIALIZE THE DOWNLTST POINTER! ACTUALLY 
DNTMGOTO) TO THE BEGINNING OP THE CURRENT DQWNLIST! I .E_ CURRENT CONTENTS OP DNLSTADR) . WIS HAS TIE 
BPPBCTQP IGNORING THE REMAINDER CP THE DOWNLIST WHICH THE DOWN -TELEMETRY PROGRAM WAS WORKING CN WHEN 
THE RESTART!® FRESH START) OCCURRED AND RESUME DOWN TBLEGTRY FROM THE BEGINNING OP THE CURRENT 

ALSO^OR 1 INTEREST IS THE PACT THAT CN A RESTART THE AGC WILL ZERO DCWNLINK CHANNELS 13, 34 AND 35 . 
DOWNLINK LIST SELECTION* _ TO _. 

the appropriate downlink lists are selected by the following 

1. fresh start 

2 . V 3 TEXXE WHERE XX = THE MAJOR MODE BEING SELECTED. 

3- IJPtM NCN V37 SELECTABLE TYPE PROGRAMSCE.G. AGS INITIALIZATION! aNDANCE, LUMINARY) AND P61-P62 
TRANSITION! COLOSSUS) BIC.). 

DOWNLINK LIST RULES AND LIMITATIONS’ 

READ SECTION! S> WHICH FOLLOW .DEBRIS* WRITEUP. 

OUTPUT- EVERY 2 SECONDS 100 DOUBLE PRECISION WORDS! I. B. 200 LGC 
CCMPUIER WORDS) ARE TRANSMITTED VIA DOWNLINK. 

ERASABLE INITIALIZATION REQUIRED- NONE 

.DNTMGOTO. AND .DNLSTADR. ARE INITIALIZED BY THE FRESH START PROGRAM. 

DEBRIS! ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)- 

LnATALST.DNTNBUFP TO DNTtGuFE +- 2 lD,TMINDEX,DN 0 . 
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ROOSO 
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dcdowntm is entered every 20 ms by an interrupt triggered by the 

RECEIPT OF AN END PULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER. 

NOTES REGARDING DOWNLINK LISTS ASSOCIATED WITH THIS PROGRAM’ 

1. DCWNLISTS. - DOWNLISTS MUST BE CCMPILH3 IN THE SAFE BANK AS THE 
IXWN-TELESBTRY PROGRAM. THIS IS DCNE FOR EASE OF CODING, FASTER 
EXECUTION. 

2 . EACH DOWNLINK LIST CONSISTS OF A CONTROL LIST AND A NU-BER OF 
SI BL I STS. 

3 A SlBLIST REFERS TO A SNAPSIOT OR DATA COMMON TO THE SAFE CR OTHER 
’ DOWNLINK LISTS. ANY SUBLIST CONTAINING COMMON DATA NEEDS TO BE 
CODED ONLY ONCE FOR THE APPLICABLE DOWNLINK LISTS. 

4. SNAPSHOT SlBLISTS REFER SPECIFICALLY TO HCMOGBCOUS DATA WHICH MUST BE 
SAVED IN A BUFFER DURING ONE DCWNRUPT. 

5. THE iDNADR FOR THE 1ST WORD OF SNAPSHOT DATA IS POJND AT THE HMD 

OF EACH SNAPSHOT SUBLIST, SINCE THE PROGRAM CODING SENDS THIS DP WORD 
IMMEDIATELY AFTER STORING THE OTHERS IN THE SNApaiOT BUFFER, 
g. ALL LISTS ARE COBLATIONS OF CODED ERASABLE ADDRESS CONSTANTS 

CRBATH) for the dcwnlist program. 

A iDNADR 1-WORD DCWNLIST ADDRESS. 

SAFE AS BCADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT 
HALF OF A DCXBLE-PRBCISICN WORD FOR DOWN TELFMETOY. 

B 2DNADR - gDNADR N-WORD DCWNLIST ADDRESS, N = 2 - 6. 

SAME AS IDNADR, But WITH THE 4 UNUSED BITS OF THE ECADR FORMAT 
FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DCDBLE- 
PRECISICN WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY. 

C DNCHAN DCWNLIST CHANNEL ADDRESS. 

SAME AS iDNADR, BUT WITH PRHIFIX BITS 0111. USED TO POINT TO 
A PAIR OP CHANNELS FOR DOWN TELENETRY. 

D DNPTR DOWN TELEMETRY SUBLIST POINTER. 

SAI® AS CAP BUT TAGGED AS A CONSTANT. USED IN CONTROL LIST .TO POINT TO A ajBLIST. 

CAUTION A DNPTR CANNOT BE USED IN A SUBLIST. 

T THE WORD ORDER CODE IS SET TO ZERO AT THE BEGINNING OF EACH DCWNLIST < I.E. CCNTROL LIST) AND WHEN 
A .IDNADR TIFE2. 13 DETECTED IN THE CCNTROL LISTCCNLY). 

IN THE SNAPSHOT SUBLIST ONLY, THE DNADR.S CANNOT POINT TO THE FIRST WORD OF ANY EBANK. 


P0065 
R0066 

R006T 
R0068 
R0089 
R00T0 
ROOTS 
ROOTS 
ROOTT 
ROOTS 
ROOTS 
R0080 
R0081 
R0082 
R00B3 
R0084 
R008S 
R0086 
ROOST 
R0088 
R0089 
R0090 
R0091 
R0092 
R0093 
RO094 
R0095 
R0096 
R009T 
R0098 
R0100 
R010I 
R0103 
R0104 

R0106 
R010T 
R0109 

R0110 
R0111 
R0113 

R0114 
R0116 

Rons (NOTE’ THE TERM EQUIVALENT « MEANT THAT THE IDNADR TO 6DNADR Will, BE PROCESSFD LIKE 1 TO 6 ECADRS) 
R0120 3. CONTROL LISTS AND SUBLISTS CANNOT HAVE ENTRIES = OCTAL 00000 OR OCTAL TTTT7 


8 . 

DOWNLINK LIST RESTRICTIONS’ 

(THE FOLLOWING POINTS MAY BE LISTED ELSEWHERE BUT ARE LISTED HERE SO 
DONE) 


IT IS CLEAR THAT THESE THINGS CANNOT BE 


1 SNAPSHOT DCWNLIST’ 

‘(A) CANNOT CCNTAIN THE FOLLOWING ECADRSC I.E. iDNADR. S) ’ 0, 400, 1000, 1400, 2000, 2400, 3000, 3400. 
(B) CAN CONTAIN CNLY 1DNADR.S 

2 ALL DOWNLINKED DATA (EXCEPT CHANNELS) IS PICKED UP BY A ±DCA+SO DOWNLINK LISTS CANNOT CCNTAIN THE 
' EQUIVALENT OP THE FOLLOWING ECADRSC I.E. IDNADHS) ’ 37T, 777, 137T, 1777, 2377, 27777, 3377, 3777. 
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4 ‘ ”* K * NLINK Pfl00RA " TO ** ™ W0RDBR 0006 TO 3 hist appear in the 

5. «ONCM4N 0« CANNOT BE USED. 

6. «wpm 0« CANNOT BE USED. 

. t. dnptr cannot appear in a sublist. 


(BANK SETTINGS 

ffiTTING THE EBANKlWH®! PICKING UP DCWNLINK DATA) THE DOWN TELEMETRY PROGRAM PUTS 
•GARBAGE. INTO BITSlS-12 op EBANK. HXH BLAIR-SMITH WARNS US THAT BITS 15-12 CP BBANK MAY BECOME 

IP/WEN 1HATHAPPe<S * « PR00RAM swim WSUREIBYMAaCINGETC.) 

INITIALIZATION REQUIRED- TO INTERRUPT CURRENT LIST AND START A NEW CNE 

1. ADRES OP DOWNLINK LIST INTO DNLSTADR 

2. NBGCNE INTO SUBLIST 

3. NBGCNE INTO DNECADR 


•142 





22,3505 



bank 

22 

•143 

REP 

2 

LAST 

166 

05,2000 



SETLOC DOwNTELM 

•144 





05,3342 



bank 


•145 

REP 

23 

LAST 

175 

0340 



ehank- 

DNTMSUPP- 

•146 

REP 

1 






CCUNT 

05/DPROG 

•14T 

REF 

21 

LAST 

1044 

05,3342 

54 016 

1 

DCDOWNTM TS 

BANKRUPT 

•148 





05,3343 

0 0006 

1 

EXTEND 


•149 

REP 

17 

LAST 

1044 

05,3344 

22 012 

1 

ffl<CH 

QRUPT 

•150 

REP 

49 

LAST 

1028 

05,3345 

3 4704 

0 

CA 

BIT7 

•151 





05,3346 

0 0006 

\ 

ext®® 


•152 

REP 

12 

LAST 1033 

05,3347 

05 013 

0 

wor 

CHAN13 

•153 

REF 

3 

LAST 

254 

05,3350 

0 0335 

1 

TC 

dntmgoto 

•154 

REP 

19 

LAST 

936 

05,3351 

3 7716 

0 

DNPHASEi CA 

NEGCNE 

•155 

REP 

1 



05,3352 

54 337 

1 

TS 

SUBLIST 

0156 

REP 

1 



05,3353 

54 338 

0 

TS 

DNECADR 

■15T 

REP 

1 



05,3354 

3 3474 

0 

CA 

LWPHAS2 

• 158 

REP 

4 

LAST 

1066 

05,3355 

54 335 

0 

TS 

dntmgoto 

•159 

REP 

1 



05,3356 

1 3372 

0 

TCF 

NEWLIST 

•160 

REF 

2 

LAST 

1066 

05,3357 

10 336 

0 

ON PHASE 2 CCS 

DNECADR 

•161 

REP 

1 



05,3380 

0 35 07 

0 

DODNADR TC 

FETCH 2WD 

•162 

REP 

27 

LAST 

786 

05,3361 

77753 

0 

MINTIME2-1DNADR TIME2 

•163 





05,3382 

1 3363 

0 

TCP 

♦1 

0164 

REP 

2 

LAST 

1066 

05,3363 

10 337 

1 

CCS 

sublist 


SAVE O 

®T WORD ORDER CODE TO 1 . EXCEPTION- AT 
THE BEGINNING OP EACH LIST THE WORD 
CODE WILL BE SET BACK TO 0- 
00 TO APPROPRIATE PHASE OF PROGRAM 

INITIALIZE ALL CONTROL WORDS 
WORDS TO MINUS CNE 

SET DNTMGOTO =0 ALL SUBSEQUENT DOWNRIJPTS 
GO TO DNPHASE2 

SENDING OF DATA IN PROGRESS 

YES - THEN FETCH THE NEXT 2 SP WORDS 

NEGATIVE OP TI.ME2 IDNADR 

(BCADR OP 3776 * 74001 = 77T7T) 

IS THE SUBLIST IN CONTROL 
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•165 

BBT 

1 


05,3364 

1 3522 

0 

0166 




05,3365 

74001 

0 

•16T 

REF 

1 


05,3386 

3 0334 

0 

•168 




05,3367 

0 0006 

1 

0160 

RES' 

2 

LAST 1066 

05,3370 

6 3372 

1 

01T0 

BEE 

1 


05,3371 

1 3377 

0 

01T1 

BEE 

S 

LAST 746 

05,3372 

50 332 

0 

• 172 

BEE 

1 


05,3373 

3 2342 

0 

0173 

BEE 

2 

1AST 1067 

05,3374 

54 334 

1 

0174 

REE 

t 

LAST 1067 

05,3375 

4 0332 

1 

0175 

BEE 

1 


05,3376 

1 3612 

0 

0177 

FEE 

3 

LAST 1087 

05,3377 

50 334 

0 

0178 




05,3400 

3 0000 

1 

.0179 

bee 

264 

LAST 1059 

05,3401 

10 000 

0 

0180 

BEE 

4 

LAST 1067 

05,3402 

24 334 

0 

0181 




05,3403 

1 3407 

0 

0182 

BEE 

5 

LAST 1067 

05,3404 

56 334 

0 

0183 




05,3405 

4 0000 

0 

0184 

BEE 

• 

LAST 1067 

05,3406 

56 334 

0 

•185 

BEE 

265 

LAST 1067 

05,3407 

24 000 

1 

0186 

BEE 

3 

LAST 1066 

05,3410 

54 336 

0 

0187 

BEE 

1 


05,3411 

6 3381 

0 

0188 

BEE 

266 

LAST 1067 

05,3412 

10 000 

0 

0189 

BEE 

1 


05,3413 

1 3417 

1 

0190 




05,3414 

47777 

0 

0191 

BEE 

2 

LAST 1067 

05,3415 

1 3417 

1 

0192 

BEE 

1 


05,3416 

0 3441 

0 

0193 

BEE 

4 

LAST 1067 

05,3417 

3 0336 

1 

0194 

BEE 

1 


05,3420 

6 3414 

0 

0195 




05,3421 

0 0006 

1 

0196 

BEE 

2 

LAST 1066 

05,3422 

6 3507 

0 

0197 

BEE 

1 


05,3423 

6 7710 

0 

0198 




05,3424 

0 0006 

1 

0199 

BEE 

1 


05,3425 

8 3445 

1 

0200 




05,3428 

0 0006 

1 

0201 

BEE 

5 

LAST 1067 

05,3427 

50 336 

1 

0202 




05,3430 

44«000 

1 

0203 

BEE 

155 

LAST 1059 

05,3431 

54 001 

1 

0204 




05,3432 

0 0006 

1 

0205 

BEE 

6 

LAST 106T 

05,3433 

50 336 

1 

0206 




05,3434 

43«777 

1 

0207 

BEE 

T 

LAST 1067 

05,3435 

54 336 

0 

0208 

BEE 

20 

LAST 1066 

05,3436 

3 7716 

0 

0209 

BEE 

8 

LAST 1067 

05,3437 

56 336 

1 

0210 

BEE 

1 


05,3440 

1 3535 

0 

0211 

BEE 

50 

LAST 1066 

05,3441 

4 4704 

1 

0212 




05 , 3442 

0 0006 

1 



ICE 

NEXTINSL 

YES 

DNADRDCH OCT 

74001 

DNADR COUNT AND BCADR DECRfHENTER 

QOGLIST 

CA 

CILIST 



EXTEND 




BzMP 

NEWLIST 

IT WILL BE NEGATIVE AT END OP LIST 


TCP 

NEXTINCL 


NEWLIST 

INDEX 

DNLSICCD 



CA 

dntable 

INITIALIZE CILIST WITH 


TS 

CILIST 

STARTING ADDRESS OP NEW LIST 


CS 

DNLSICCD 



ICE 

S5NDID ♦ 3 


NEXTINCL 

INDEX 

CTLIST 



CA 

0 



CCS 

A 



I NCR 

CTLIST 

ffiT POINTER TO PICK UP NEXT CTLIST WORD 


TCP 

♦4 

CN NEXT ENTRY TO PROG. (A SIOULD NOT =0) 


XCH 

CILIST 

SRT CTLIST TO NEGATIVE AND PLACE! CODING) 


CCM 


U1C04PLEMENTED DNADR INTO A. (FOR LA) 


XCH 

CTLIST 

(ST IN ) 

♦4 

INCR 

A 

(CILIST) 


TS 

dnecadr 

SAVE DNADR 


AD 

MINTIME2 

TEST FOR TIM?2 (NBG. OP ECADR) 


CCS 

A 



TCP 

SBWO *1 

DCNocT SET WORD ORDER CODE 

MINB 1314 

OCT 

47777 

MINUS BIT 13 AND 14 ( CAN«T GET HERE) 


TCP 

SETWO +1 

DCN.T SET WORD ORDER CODE 

SBTWO 

TC 

WOZERO 

GO ®T WORD ORDER CODE TO ZERO. 

+1 

CA 

DNECADR 

RELCHD A WITH THE DNADR. 

*2 

AD 

MINB 1314 

IS THIS A REGULAR DNADRlt 


EXTEND 




B2J4P 

PBTCH2WD 

YES. (A MUST NEVER BE ZERO) 


AD 

MINB12 

NO- IS IT A POINTER (DNPTR) OR A 


EXTEND 


CHANNEL(DNCHAN) 


BZMP 

DODNPTR 

IT«S A POINTER. (A MUST NEVER BE ZERO) 

DODNCHAN 

1C 

6 

(executed as extend) it s a channel 


INDEX 

DNECADR 



INDEX 

0 -4000 

(EXECUTED AS READ) 


TS 

L 



1C 

6 

(executed as extend) 


INDEX 

DNECADR 



INDEX 

0 -4001 

(EXECiriED as READ) 


TS 

DNECADR 

SET DNECADR 


CA 

NEGCNE 

TO MINUS 


XCH 

DNECADR 

WHILE PRESERVING A. 


TCP 

DNTMEXIT 

GO SEND CHANNELS 

WOZERO 

CS 

BIT? 



EXTEND 


l. 



ASSM^H^si^CPAOIPRO^ 20*35 OCT. 28,1968 SATRAP .OOT PACE 1088 


DOWN-TEL&KTRY PROGRAM 


UffilUS PACE NO. 6 


13 LAST 1088 
210 LAST 1055 


#5.3443 03 013 0 

05,3444 0 0002 0 


■AND CHAN! 3 
tc a 


SET *0(0 ORDER CODE TO ZERO 
RETURN TO CALLER 


LAST 1087 


REE 267 LAST 1087 
REP 10 LAST 1068 
REP i 


05,3445 

05,3448 

05,3447 

05.3450 

05.3451 


50 338 1 DCttTPTR IffflEx DNECADR 


0 0000 1 
10 000 0 
3 0338 1 
1 3521 0 


0 

A 

DNECADR 

DOSlPLST 


DNECADR CONTAINS ADRES OP SUBLIST 
CLEAR AND ADD LIST ENTRY INTO A. 
IS THIS A SNAPS! OT SUBLIST 
NO, IT IS A REGULAR SUBLIST. 

A MIST NOT BE ZERO. 


HEP 11 LAST 1068 
REP 3 LAST 1086 
REP 207 LAST 1059 
REP 2 LAST 71 


05.3452 58 338 1 

05.3453 54 337 1 

05.3454 3 4714 1 

05.3455 58 338 1 


DNECADR 
SUBLIST 
ZERO 
TM INDEX 


YES, IT IS A SMPSHOT SUBLIST 
C(DNECADR) INTO SUBLIST 
A INTO A 
•NOTE. . TM INDEX = DNECADR) 


05,3457 
OS, 3460 


7 4373 0 
0 0006 1 


BANK. 

SET BLANK 

ISOLATE RELATIVE ADDRESS 


SK5 3?™ » ZESSTttSZ SKE- 

1. WLY lDNADRtxS CAN APPEAR IN THE SNAPSHOT SUBLIST 

2. jDNADfUs CANNOT REFER TO THE PIRST LOCATICN IN ANY BANK 

%% *1 1039 “S- 3458 54 °°3 0 SMPLOOP TS BLANK SET BLANK 

BEP 3 LAST 372 #5,3457 T 4373 0 MA<K LOw 0 ISOLATE RELATIVE ADDRESS 

05,3460 0 0006 1 EXTEND 

REP 268 LAST 1068 05,3461 5 0000 1 INDEX A 

*3,1401 EBANK= 1401 

REP 24 LAST 10RR 3 1402 ° ~ 1401 PICK l,P 2 SNAPSHOT WORDS. 

24 LAST 1066 0340 EBANK= DNTWUFP 

HEP 3 LAST 1068 05,3463 50 336 1 INDEX TM INDEX 

RPP ^ IJ\<rr 1068 05,3464 5 2 341 0 DX<3! CMTMBUFP STORE 2 SNAPSIOT WORDS IN BUFFER 

s 5 mi ass 2 2 : 336 1 s sss «««»«*** — 

S 5 ZSllll S:2?; It III l ^ a ££ SET POINTER to NEXT 2 WORDS OF SNAPSH 

^ 369 LAST 1068 Kjj | |s a‘ 

1 05,3473 1 3456 1 TCP SNAPLOOP not i a ct run 


05,3461 5 0000 1 

*3,1401 


LAST 1066 
LAST 1068 

last 1068 
last 1068 

LAST 1068 
LAST 1068 
LAST 1068 


REP 269 LAST 1068 


REP 43 


LAST 1068 
LAST 1067 
LAST 1068 
LAST 1068 
LAST 1068 
LAST 1068 


REP 270 LAST 1068 


05.3462 
0340 

05.3463 

05.3464 

05.3465 

05.3466 

05.3467 

05.3470 

05.3471 

05.3472 

05.3473 

05.3474 

05.3475 

05 . 3476 

05.3477 

05.3500 

05.3501 

05.3502 

05.3503 

05.3504 
*3,1401 


3 1402 0 


PICK UP 2 SNAPSHOT WORDS. 


50 338 I 
5 2 34 1 0 
24 336 1 
24 336 1 
24 337 0 
50 337 0 
0 0000 1 
10 000 0 
1 3456 I 
03357 0 
54 337 1 
3 TT16 0 
54 336 0 
56 337 0 
54 003 0 
7 4373 0 
0 0006 1 
5 0000 1 


S4APAGH 


CWTMBUPP 
TM INDEX 
TM INDEX 
SUBLIST 

sublist 

0 

A 

SNAPLOOP 


STORE 2 SNAPSTOT WORDS IN BUFFER 
SET BUFFER INDEX FOR NEXT 2 WORDS. 


SET POINTER TO NEXT 2 WORDS OF SNAPSHOT 


UWPHAS2 OEHADR DNPHASE2 


= SSSS (SSSS = NEXT ENTRY IN SUBLIST) 
TEST FOR LAST TWO WORDS OF SNAPSHOT 
NOT LAST TWO. 


TS SUB! 
CA NBGC 
TS DNEC 
XCH SUBI 
TS EBAN 
MASK LOWS 
EXTEND 
INDEX A 
BBANK= 1401 


SUBLIST 

NBGCNE 

DNECADR 

SCX5LIST 

ebank 

LOWS 


YES, LAST. SAVE A. 

SET DNECADR AND 

SLBLIST POINTERS 

TO NEGATIVE VALUES. 


I 


I 


f 
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DOWN-TBLBerRY PROGRAM 


0262 




05,3505 

•283 

REP 

26 

LAST 1068 

0340 

•264 

REP 

2 

LAST 1087 

05,3506 

•265 

REP 

13 

LAST 1068 

05,3507 

•266 

REP 

44 

LAST 1068 

05,3510 

026T 

REP 

5 

LAST 1068 

05,3511 

0268 

REF 

156 

LAST 1087 

05,3512 

0269 

REP 

1 


05,3513 

02TO 

REP 

14 

LAST 1069 

05,3514 

6271 




05,3515 

0272 

REP 

157 

LAST 1069 

05,3516 

•273 




B3.1400 

•274 




05,3517 

•275 

HEP 

27 

LAST 1069 

0340 

0276 

REP 

3 

LAST 1069 

05,3520 

•277 

REP 

e 

LAST 1068 

05,3521 

0278 

REP 

9 

LAST 1089 

05,3522 

0279 




05,3523 

•280 

REP 

271 

LAST 1068 

05,3524 

0281 

REF 

10 

LAST 1069 

05,3525 

0282 




05,3526 

6283 

REP 

11 

LAST 1069 

05,3527 

0284 

REP 

22 

LAST 1068 

05,3530 

0285 

RES' 

12 

LAST 1069 

05,3531 

0286 

REP 

272 

LAST 1069 

05,3532 

0287 

REP 

15 

LAST 1069 

05,3533 

0288 

REP 

3 

LAST 1067 

05,3534 

A0289 





AQ290 





0291 




05,3535 

0292 

REP 

1 


05,3538 

0293 

REP 

158 

LAST 1069 

05,3537 

0294 




05,3540 

0295 

HEP 

1 


05,3541 

0296 

REP 

47 

LAST 1061 

05,3542 

0297 

REP 

1 


7710 

0298 

REP 

6 

LAST 1068 

0336 

0299 

REP 

1 


0334 

0300 

REP 

1 


0337 


DCA 1401 
BBA*C= CNUBtTP 
1CF DNTJCXIT 


3 0336 1 
54 003 0 
T 4373 0 
54 001 1 
3 3365 1 
26 336 0 
0 0006 1 
5 0001 0 


1 3535 0 


FETCH 2*0 CA DNECADR 
TS EBANK 
MA3C LOWS 
TS L 
CA DNAIWJCR 
ADS DNECADR 
EXTB® 

INDEX L 
B3ANK= 1400 
DCA 1400 
E8ANK= DNTMBUFP 
TCP DNTMBXIT 


DOSUBLST 

NEXTINSL 


0 0000 1 
10 000 0 
24 337 0 
1 3532 1 
54 337 1 
3 7716 0 
56 337 0 
24 000 1 
54 336 0 
1 3420 0 


SLflLIST 

SUBLIST 

0 

A 

SLPLIST 


siBlist 

NEGCNE 

StfILIST 

A 

DNECADR 
®TWO *2 


0 0006 1 DNTMEXIT EXTK7D 

01 034 1 WRITE DNTMl 

3 0001 0 CA L 

0 0006 1 TMEXITL EXIE® 

01 035 0 WRITE DNTM2 

1 5222 1 TMRESUME TCP RESU« 


MINB12 EQUALS -1/8 
DNECADR EQUALS TMINDEX 
CTLIST EQUALS LDATALST 
SUBLIST EQUALS DNO 


USBRoS PAGE NO. 7 


PICK UP FIRST 2 WORDS OP SNAPSHOT. 


NOR GO SEND TH04. 


®T ERANK 

ISOLATE RELATIVE ADDRESS 


DBCRBfNT COUNT AND ECADR 


PICK UP 2 DATA WORDS 
NOW GO SEND THEM. 
SET SUBLIST POINTER 


= CA SSSS (SSSS = NEXT ENTRY IN SUBLIST) 

IS IT THE BID OP THE SUBLIST 

NO- 


SAVE A. 

SET SUBLIST TO MINUS 
RETRIEVE A. 


SAVE DNADR 

GO USE CCMMQT CCDINGCPRORITMS WCXJID 
OCCUR IP THE PROGRAM BICCUNTERED A 
DNPTR NOW) 


DOWN-TELEMETRY EXIT 

to send a + l to channels 34 +■ 35 
respectively 


EXIT TRMflW PROGRAM VIA RES. PC. 


I 
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DCMN-THPf«TRY PROGRAM 


USEfUS PAGE NO. 


1*0301 

R0302 

R0304 

R0306 

R0308 

RO310 

R0312 

R0313 

R0315 

R0316 

R031T 

R0319 

R0320 

R0321 

R0322 

R0323 

R0324 

R0325 

R0326 

R0327 

R0328 

R0329 

R0331 

R0333 


SUBROUTINE NAME- DNDUMP 

PmCTICNA L^ S ^ IPTICN " TO ALL ERASABLE STORAGE «N« TIMES. (N = 1 TO 4) BANKS ARB SENT CNE AT A TINE 

IS PRECEEDED ^ AN ID WO®, SYNCH BITS, ECADR AND TIMSl FOLLOWED BY TUB 2580 wOf®S CF EACH 
EBANK. EBANKS ARE DUMPED IN ORDER! I. E. EBANK 0 FIRST THEN EBANXi BtoT 
CALLIN0 GROtJ ® * astrcnaot by keying V74E can initialize THE DUMP 

2£?b£ 5** W VT4E 1118 CURB£NT DawLIST * ILL be mediately termwathS and the downlink erasable DUMP 

^ N £^n™ DWNLINK bump can be tekwinat® (and interrupted downlist reinstated) only 

1. A FRESH START 

2 <A0C0BDIN0 TO BITS ** » *****>. note that dumpcnt 

3. and involuntarily by a restart 

NORMAL EXIT MODE- TCF DNPHASSi 


ALARM or ABORT MODE- NCNE 
♦SUBROUTINES CALLED- NCNE. 

ERASABLE INITIALIZATION REOUIRED- 

OUMPCNT OCT 20000 IF 4 COMPLETE ERASABLE DUMPS ARE DESIRED 

fXMpCNT 10000 IF 2 COMPLETE ERASABLE DUMPS ARE DESIRED 

IXWPCNT OCT 04000 IP 1 CCMPLEIE ERASABLE DUMP Is DESIRED 


wirwir CLT 04000 IP 1 CCMPLEIE ERASABLE DUMP Is DESIRED 
DEBRIS- IXMPLOC, DUMPS* , DNTMQOTO, EBANK AND CB4TRAL REGISTERS 

TI M!NG- TMMIN SECS) = !(NO.DUMPS)*<NO.EBANKS>* (WDSPBrEBANK * NO.IDwDS)) / NO.WDSPBR.SBO 
TIME! IN SECS) = < 4 )*( 8 )* ! 2S8 ♦ 4 ) / 1nn 

TIME! IN SECS TO SEND DUMP OF ERASABLE 4 TI>ES VIA DOWNLINK) = 83 2 SECONDS 


STElCiurB op one EBANK AS IT IS SENT BY DOWNLINK PROGRAM- 

IREMINDER-THIS INLY DESCRIBES !NE OF THE 8 EBANKS X 4 (DUMPS) 
DOWNLIST ff 

WORD TAKEN FRQ4 CCNTENTS OF EXAMPLE 0 CQ-NBNTS ■ 


32 EBANKS WHICH WILL BE SENT BY DNDUMP) 


ERASID 
LOWIDCOD 
DUMP [DC 
TIME) 

FIRST WORD OF EBANK X 
2ND WORD OF EBANK X 
3RD WORD OF EBANK X 


0 DOWNLIST I.D. FOR DOWNLINK ERASABLE DUMP !X=T CSM, 6 LM> 

1 DOWNLINK SYNCH BITS.ISAME CNE USED IN ALL OIHER DCWNLISTS) 

1 (SEE NOTES (N WMPL0C>1= 3RD ERAS BNP, 34 0 0-BCADR OF sTH WD 
1 TIME IN CBMTI SECONDS 

1 IN THIS EXAMPLE THIS WORD = CCNTENTS OF Et,1400 (ECADR 3400) 

1 in this example this word = ccnte.nts of et,i4oi (ecadr 3401) 

1 IN THIS EXAMPLE THIS WORD = CONTENTS OF K7.1402 (ECADR 340 2) 




2000 2S6TH WORD OF EBANK X 


IN THIS EXAMPLE THIS WWD = CCNTENTS OP £7,1777 (ECADR 3777) 


NOTE- RWPLOC CCNTAINS THE COUNTER AND ECADR FOR EACH WOK) BEING SENT 

WE BIT STRUCTURE OF DUMPLOC Is FOLLOWS 

X = NOT USED 

X ABC BEE RRRRRRRR ABC = ERASABLE DUMP CCXNTER! I.E. ABC = 0 ,1,2 OR 3 WHICH M3ANS THAT 

roiPLEIE ERASABLE DUMP NUMBER 1,2,3 OR 4 RESPECTIVELY IS IN PROGRESS) 
EEE = EBANK BITS 

RRRRRflRa = RELATIVE ADDRESS WITHIN AN EBANK. 


1 



ass&blb revision 249 op aoc program COLOSSUS by NASA 2021111-041 



oo««-iBL»erHY program 


0368 

REF 208 

LAST 1088 

0369 

REF 

1 


0370 

REF 

2 

LAST 1087 

0371 

REF 

1 


0372 

REF 

5 

LAST 1068 

0373 

REF 

18 

LAST 1061 

0374 

REF 159 

LAST 1089 

0375 

REF 

2 

LAST 1071 

0376 

REF 

4 

LAST 1069 

0377 

REP 

1 


0378 

REF 

1 


0370 

REF 

51 

LAST 1057 

0380 

REF 

3 

LAST 1071 

0381 

REF 

6 

LAST 1069 

0382 

REF 

273 

LAST 1069 

0383 

REP 

1 


0384 

REP 

4 

LAST 1071 

0385 

REF 

1 


0386 

REF 

7 

LAST 986 

0387 

REF 

274 

LAST 1071 

0388 

REP 

2 

LAST 188 

A0389 

0390 

REF 

•2 

LAST 254 

0391 

REP 

1 


0392 

REF 

6 

LAST 1071 

0393 

HEP 

5 

LAST 1071 

0394 

REF 

45 

LAST 1069 

0395 

REF 

7 

LAST 1071 

0396 

REF 

211 

LAST 1068 

0397 

REF 

14 

LAST 695 

0398 

REF 

160 

LAST 1071 

0399 

0400 

REF 

212 

LAST 1071 

0401 

0402 

REF 

161 

LAST 1071 

0403 

REP 

213 

LAST 1071 

0404 

0405 

REP 

28 

LAST 1069 

0406 

REP 

5 

LAST 1071 

0407 

0408 

REP 

7 

LAST 1071 

0409 

REF 

1 


0410 

REF 

162 

LAST 1071 


05.3543 

05.3544 

05.3545 
05,3540 
05,3547 

05.3550 

05.3551 

05.3552 

05.3553 

05.3554 

05.3555 


3 4T14 
54 336 

0 38 OT 
3 3555 
54 335 
3 0025 
58 001 
3 0338 

1 3535 


DNDlMPI 


♦2 


03556 1 
03571 1 


05, 

05, 

05, 

05, 

05, 

05, 

05, 

05, 

05, 

05, 


3556 

3557 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 


3 4711 
28 336 
7 4373 
10 000 
1 357 3 
3 0336 
7 0333 
7 7671 
10 000 
1 3351 


05.3573 

05.3574 

05.3575 

05.3576 

05.3577 

05.3800 

05.3801 
£3,1400 

05.3802 

05.3803 
05,3604 
05,3805 

0340 

05,3808 

05,3807 

05.3610 

05.3611 


3 0336 
54 003 
7 4373 
54 002 
3 4713 
54 001 
50 002 


LDNDUMP 


DNDUMP 


05,3570 1 3545 1 


05,3572 54 335 0 


DNDUMP2 


7 1401 1 
56 001 0 
50 002 0 
7 1400 0 

1 3535 0 
0 0006 1 
22 335 1 
3 4747 1 


SEND ID 


CA 

ZERO 

TS 

DUMPLOC 

1C 

SB® ID 

CA 

LDNDUMPl 

TS 

DNTMGOTO 

CA 

TD«1 

XCH 

L 

CA 

DUMPLOC 

TCP 

DNTM3XIT 

ADRBS 

DNDUMP 

ADRES 

DNDuMPl 

CA 

TWO 

ADS 

DUMPLOC 

MASO 

LOWS 

CCS 

A 

TCP 

DNDUMP2 

CA 

DUMPLOC 

MASK 

DUMPCNT 

MASK 

PRI034 

CCS 

A 

TCP 

DNPHASEl 

TCP 

DNDuMPl *2 

CA 

LDNDlMP 

TS 

DNTMGOTO 

CA 

DUMPLOC 

TS 

EBANK 

MASK 

LOWB 

TS 

O 

CA 

NBGo 

TS 

L 

INDEX 

0 

EBANK: 

: 1400 

MASK 

1401 

XCH 

L 

INDEX 

0 

MASK 

1400 

EBANK: 

: DNHBUFF 

TCP 

DNTMEXIT 

extend 

CttW 

DNTMGOTO 

CAP 

erasid 


05,3812 5 4 001 1 


TS 


20*35 OCT. 28,1968 SATRAP .007 PAGE 1071 

USER.S PAGE NO. 9 EO S3 

INITIALIZE DOWNLINK 
ERASABLE DUMP 
GO SEND ID AND SYNCH BITS 
ffiT DNTMGOTO 

TO LOCATION FOR NEXT PASS 
PLACE TINEl 
INTO L 

AND EC ADR CP THIS EBANK INTO A 
SEND DUMPLOC AND TIMEl 


INCRHNBNT BCADR IN DUMPLOC 
TO NEXT DP WORD TO BE 
DUMPED AND SAVE IT. 

IS THIS THE BEGINNING OF A NEW EBANK 
NO- THEN CONTINUE DUMPING 
YES- IS THIS HE END OF HE 
W HUN = 1 TO 4) COMPLETE ERASABLE 
DLMP(BIT14 FOR 4, BIT13 EOR 2 OR BIT12 
FOR l COMPLETE ERASABLE DUMP! SI). 

YES- START SENDING INTERRUPTED DCWNLIST 
AGAIN 

NO- GO BACK AND INITIALIZE NEXT BANK 
SET DNTMGOTO 

FOR WORDS 3 TO 256D OP CURRENT EBANK 


rer EBANK 

ISOLATE RELATIVE ADDRESS. 

UNOIE’ MASK INSTRUCTION IS USED TO PICK 
UP ERASABLE REGISTERS SO THAT EDITING 
REGISTERS 20-23 WILL NOT BE ALTERED.) 

PICK UP LOW ORDER REGISTER OF PAIR 
OF ERASABLE REGISTERS. 

PICK UP HICH ORDER REGISTER OP PAIR 
OF ERASABLE REGISTERS. 

GO SEND THEM 

♦♦ENTRANCE USED BY ERA SA BUS DUMP PROG.** 
SET DNTMGOTO SO NEXT TIME PROG WIIL GO 
TO LOCATION FOLLOWING *TC SEND ID’ 

♦♦ENTRANCE USED BY REGUIAR DOWNLINK PO** 



ASSBUBLB RBVISICW 249 CP AOC program COLOSSUS BY HAM 2021111-041 
L Daw-reLeeniY program 
last 1067 


0411 RBP 2 

0412 RBP 1 

0413 REP 163 

0414 RBP 6 


last 1071 

LAST 1071 


05,3813 

0 3441 

0 

tc 

WQZERO 

05,3614 

3 2000 

0 

CAP 

LCWIDCCD 

05,3615 

58 001 

0 

XCH 

L 

05,3616 

1 3535 

0 

TCP 

WTMBXIT 




20*35 OCT. 28,1968 SATRAP , 0 07 PACE 1072 

1®S»S PACE NO. io Eo S3 

00 SET WOE® ORDER cooe TO ZERO 
place SPECIAL ID CODE INTO L 
AND ID BACK INTO A 
SOD DOBNLIST ID CODEC S) . 






I 
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USBR-S PAGE NO. 


BO S3 


R0001 



W FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE 

IN ANOWER BANK. IN WE BANKCALL VERSION, WE 

R0003 

CADR CP WE SlBRCUTINE IMMEDIATELY FOLLOWS THE TC HAMKCALL INSTRUCTICN, WHH C(A) AND OIL) PRESERVED. 

0005 




4555 


block 

02 



00055 

REP 

1 




COUNT 

02/BANK 



0006 

REP 

4 

LAST 413 

4555 

52 134 0 

RANkCALL DxCH 

BLF2 


SAVE INCOMING A,L. 

000T 

REP 

214 

LAST 1071 

4556 

50 002 0 

INDEX 

0 


PICK UP CADR. 

0008 




4557 

3 0000 1 

CA 

0 



0009 

REP 

215 

CAST 1073 

4560 

24 002 0 

INCH 

0 


SO WE RBTUIN TO WE LOC. AFTER WE CADR. 

R0010 



SWCALL IS 

IDENTICAL 

TO BANKCALL, EXCEPT WAT WE CADR ARRIVES 

IN A. 

0012 

REP 

164 

LAST 1072 

4561 

54 001 1 

SWCALL TS 

L 



0013 

REP 

3 

LAST 376 

4562 

22 004 0 

LXCH 

FRANK 


SWITCH BANKS, SAVING RETURN. 

0014 

REP 

7 

LAST #13 

4563 

7 4747 0 

MASK 

LOWio 


GET SUB-ADDRESS CP CADR. 

0015 

HEP 

216 

LAST 1073 

4564 

56 002 0 

XCH 

0 


A,L NOW CCNTAINS DP RETURN. 

0016 

REP 

5 

LAST 1073 

4565 

52 134 0 

DXCH 

BUP2 


RESTORING INPUTS IF WIS IS A BANKCALL. 

0017 

REP 

217 

LAST 1073 

4566 

50 002 0 

INDEX 

0 



0018 




4567 

0 2000 0 

TC 

10000 


SETTING 0 TO SWRETURN. 

0019 

REP 

6 

LAST 1073 

4570 

58 134 1 

9WRETURN XCH 

BUF2 *1 


CCMBS HERB TO RETURN TO CALLER. C(A,L) 

0020 

REP 

4 

LAST 1073 

4571 

58 004 0 

XCH 

PRANK 


ARE PRESERVED FOR RETURN. 

0021 

REP 

7 

LAST 1073 

4572 

58 134 1 

XCH 

BUP2 4-1 



0022 

REP 

6 

LAST 1073 

4573 

0 0133 0 

TC 

BUP2 



R0023 



WE FOLLOWING ROUTINE CAN BE USED AS A UNILATERAL JUMP 

WIW C(A,L> PRESERVED AND WE CADR IMMEDIATELY 

R0025 

FOLLOWING WE 1C POST JIMP INSTOJCTICN. 





0026 

REP 

218 

LAST 10T3 

4574 

56 002 0 

POST JUMP XCH 

0 


SAVE INCCMING CIA) . 

0027 

REP 

275 

LAST 1071 

4575 

50 000 1 

INDEX 

A 


GET CADR. 

0028 




4578 

3 0000 1 

CA 

0 



R0029 



RANKJlMP IS THE SAM? AS POSTJUMP, EXCEPT WAT 

WE CADR ARRIVES 

IN A. 

0031 

REP 

5 

LAST 1073 

4577 

54 004 1 

BANK JIMP TS 

fbank 



0032 

REP 

• 8 

LAST 1073 

4600 

7 4747 0 

MAac 

LOff'10 



0033 

REP 

219 

LAST 1073 

4601 

56 002 0 

XCH 

0 


RESTORING INPUT CIA) IF WIS WAS A 

0034 

REP 

220 

LAST 1073 

4602 

50 002 0 

04-10000 INDEX 

0 


POSTJUMP. 

0035 




4603 

1 2000 1 

PRIO 12 TCP 

10000 


PRI012 = TCF 10000 = 12000 




; 
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L imffl-aA.SK OMOIICATIW USffl-S PACE NO. 2 Bo S3 

HE FOLLOWING RCWIHE OBIS WE RETURN CADR SAVED BY 9WCALL OR BANKCALL AND LEAVES IT IN A. 


0038 HEP 9 LAST 1073 4804 

0039 REE 9 LAST 1073 4605 

0040 REF 10 LAST 1074 4608 

0041 REE 221 LAST 1073 4607 

00485 REP 4 LAST 374 4810 

0047 REP 0 LAST 1073 4811 

00475 4812 

0048 REE 10 LAST 577 4813 

00485 REP 5 LAST 1074 4814 

0049 REP 10 LAST 1074 4815 

00495 REP 165 LAST 1073 4616 

0050 4617 

00505. 4620 

0051 REP 11 LAST 1074 4621 

0052 REP 166 LAST 1074 4622 

00525 4623 

0053 REP 6 LAST 1074 4624 

00534 462S 

00535 REP 12 LAST 1074 4628 

0054 4627 

00545 REP 7 LAST 1074 4630 

0055 REP 7 LAST 1074 4831 

00555 4632 


3 4747 

1 

makecadr cap 

LOW 10 

7 0133 

1 

mask 

BUP2 

6 0134 

1 

AD 

BUP2 +1 

0 0002 

0 

TO 

0 

54 135 

1 

SUPDACAL TS 

MPTEMP 

50 004 

0 

XCH 

PBANK 

0 0006 

1 

EXTEND 


04 007 

1 

RQR 

SUPERBNK 

56 135 

0 

XCH 

MPTEMP 

7 4747 

0 

HA* 

LOW 10 

56 001 

0 

XCH 

L 

0 0004 

0 

D4IINT 


0 0006 

1 

EXTEND 


01 007 

1 

WRITE 

SUPERBNK 

SO 001 

0 

INDEX 

L 

3 2000 

0 

CA 

10000 

56 135 

0 

XCH 

MPTEMP 

0 0006 

1 

EXTEND 


01 007 

1 

WRITE 

SUPERBNK 

0 0003 

1 

RELINT 


54 004 

1 

TS 

FRANK 

3 0135 

0 

CA 

MPTEMP 

0 0002 

0 

RETURN 



*T PBANK for data. 

SAVE PBANK IN BITS 15-11, AND 
SUFfflflANK IN BITS 7-5. 

SAVE RSI,. ADR. IN BANK, FETCH SUPERBITS. 
BECAUSE rjpt dces NOT save supbrhank. 

«T SUPERBANK FOR DATA. 

PINBALL (Plx MEM DISP) PREVENTS DCA HERE 
SAVE 1ST WO, FETCH OLD PRANK AND S8ANK. 

RESTORE SUPERBANK. 

RESTORE PBANK. 

RECOVER FIRST WORD OP DATA . 

24 WDS. DATACALL 516 MU, SUPDACAL 432 MJ 






0058 

0059 

0060 
0061 

0062 

0063 

0064 

0065 

0066 
0061 
0068 

0069 

0010 

0011 

0012 

R0090 

A0092 

60093 

A0094 

0103 

0104 

0105 

0106 
0101 
0108 

0109 

0110 
0111 
0112 

0113 

0114 


ASS941LB REVISION 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 20’35 OCT. 28,1968 SATRAP .001 PAOB 1015 

OneR-SAMC OOMNICATION USIUS PAOB NO. 3 Bo S3 

1HB F OUXM INO ROUTINES ARB IDENTICAL TO HANKCALL AND 9*CALL EXCEPT THAT THEY ARE USED IN INTERRUPT. 

IBNKCALL DXCH HJPTRBG3 USES RUPTREG3.4 FOR DP HBIUIN ADDRESS. 

INDEX O 
CAP 0 
INCR Q 


161 

8 

11 

224 
3 

225 


LAST 

415 

4633 

52 073 

1 

LAST 

1074 

4634 

SO 002 

0 



4635 

3 0000 

1 

LAST 

1075 

4636 

24 002 

0 

LAST 

1074 

4637 

54 001 

1 

LAST 

1074 

4640 

22 004 

0 

LAST 

1074 

4641 

7 4747 

0 

LAST 

1075 

4642 

56 002 

0 

LAST 

1075 

4643 

52 073 

1 

LAST 

1075 

4844 

50 002 

0 



4645 

0 2000 

0 

LAST 

66 

4846 

56 073 

0 

LAST 

1075 

4647 

56 004 

0 

LAST 

1075 

4650 

56 073 

0 

LAST 

1075 

4651 

0 0072 

1 


ISWCALL TS 

LXCH 

MASK 

XCH 

DXCH 

INDEX 

1C 

ISWRETEN XCH 
XCH 
XCH 
TC 


L 

PEANK 

10*10 

o 

RJPTREG3 

Q 

10000 

RJPIREG4 

FHANK 

HJPTREG4 

RUPTRBG3 


2 USPWDADR ACCESSES INTERPRETIVE CODING IN OTHER THAN THE USER.S FRANK. THE CALLING ®OjENCB IS AS FOLLCMS’ 


L 

L+l 


TC USPRCADR 
CADR INTPRETX 


HBP 5 
HEP 25 
HEP 1 


LAST 415 
LAST 918 
LAST 365 


IBP 14 LAST 515 
HEP 1 

HEP 226 LAST 1075 


HEP 10 
«P 12 
HEP 221 
SBP 6 
HEP 1 


LAST 1075 
LAST 1075 
LAST 1075 
LAST 1075 


4652 

4653 

4654 

4655 

4656 

4657 
4660 
4861 

4662 

4663 

4664 

4665 


54 164 0 
3 4703 1 
54 023 1 


USPRCADR TS 
CA 


3 0006 
54 165 
50 002 
3 0000 
54 004 
7 4747 
56 002 
56 164 
1 4602 


TS 

CA 

TS 

INDEX 

CA 

TS 

mask 

XCH 

XCH 

TCP 


LOC 
BITS 
EDOP 
BHANK 
RANK SET 
0 
0 

FRANK 

LCW10 

O 

LOC 

0*10000 


INTPRETX IS THE INTERPRETIVE CODING 
RETURN IS TO L*2 

SAVE A 

EXIT INSTRUCTION TO EDOP 

usermS bbank to Ranksbt 


interpretive bank to fbank 

YIELDS INTERPRETIVE RELATIVE ADDRESS 
INTERPRETIVE ADDRESS TO O, FETCHING L+l 
L+l TO LOC, RETRIEVING ORIGINAL A 
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inteh-bank communication 




R0148 

B014T 

R0148 

R0149 

KOISO 


R01S2 

R01S4 

K0155 

HOIST 

R0159 

R0161 

0163 

0164 
A0165 

0166 

A016T 


20*35 OCT. 28,1988 SATRAP .007 PAOB 10T8 
UffiR«S PAOB NO. 4 Bo S3 


POUT 

R0119 

THERE ARB FOLK POSSIBLE 

SETTINGS FOR CHARNEL 07. < CHARNEL 

07 CCN7AINS THE 

SUPERBANK SETTING. ) 

R0120 

R0121 

SUPERBANK 

SETTING 

S-REG. VALUE 

PSSUDO-FIXH) 

bask numbers 

OCTAL PSEUDO 
ADDRESSES 

H0122 

H0124 

SUPERBANk 3 

OXX 

2000 - 3777 

30-37 

70000 - 107777 

(WHERE XX CAN BE ANYTHING AND 

R0126 

SUPERBANK 4 

100 

2000 - 3777 

40 - 47 


WILL USUALLY BE SEEN AS 11) 

R0128 


110000 - 127777 

(AS PAR AS IT CAN BE SEER 

H0130 






CNLY BANKS 40-43 WILL EVER BE 

B0132 

SUPERBANK 5 

101 

2000 - 3777 

50 - 57 


AND ARE PRESENTLY AVAILABLE) 

R0134 

130000 - 147777 

( PRESENTLY NOT AVA I LA RLE TO 

R0136 

R0138 

SUPERBANK 6 

110 

2000 - 3777 

60 - 67 

150000 - 187777 

THE U®R) 

(presently not available to 

R0I42 

R0144 

££e« %* ANY PBSmM UrA1W> " ^ 00 - 27. I 

THE USER) 

-B., NO PROGRAM LIVING IN ANY 


R0145 SUPERS* MAYBE CALLED IR THIS FASHION’ 


CAP 

TCr 


AH8CCN 

Supersw 


H0151 OH IN THIS FASHION * 


CAP 

TOR 


SUPERSET 
SUPERS W 


WHERE — ABBCCN B8CCN SOETHIN — 
(THE SJPER0NK BITS ARE IN THE BBCON) 


WHERE SUPERSET IS ONE OP the four AVAILABLE 
aiPBRBANK BIT CONSTANTS’ 

SUPEHOU OCTAL 60 
SJPBRlOO OCTAL 100 
SUPBR101 OCTAL 120 
SUPERno OCTAL 140 


REP 

13 

LAST 1074 

4886 

0 0006 

1 

SUPEHSW EXTEND 


4667 

01 007 

1 

WRITE 

SUPBRBNk 

REF 

228 

LAST 1075 

4870 

0 0002 

0 

1C 

0 




WHITE BITS T-6-5 of THE ACCUMULATOR INTO 
CHANNEL 07 

1C TO INSTRUCTION FOLLOWING 
1C SUPERSW 



